Please help the perl experts to implement a Text Extraction Data script. Thank you!

Please help the perl experts to implement a Text Extraction Data script. Thank you-Linux general technology-Linux technology and application information. For more information, see the following. The file content is as follows:

We will test Group1...
Teacher begin first-name:
Applaud number 100: not applaud number 100
Ball number: 10: attempt: 10 made: 6
Ball number: 10: attempt: 10 lose: 4
Pass succeed
We will test Group1...
Teacher begin first-name B:
Applaud number 100: not applaud number 100
Ball number: 10: attempt: 10 made: 6
Ball number: 10: attempt: 10 lose: 4
Pass succeed
We will test Group1...
Teacher begin first-name C:
Applaud number 100: not applaud number 100
Ball number: 10: attempt: 10 made: 6
Ball number: 10: attempt: 10 lose: 4
Pass succeed
We will test Group1...
Student begin first-name:
Applaud number 100: not applaud number 100
Ball number: 10: attempt: 10 made: 6
Ball number: 10: attempt: 10 lose: 4
Pass succeed
We will test Group1...
Student begin first-name B:
Applaud number 100: not applaud number 100
Ball number: 10: attempt: 10 made: 6
Ball number: 10: attempt: 10 lose: 4
Pass succeed


You can use perlto upload data of madeand loseto the result.txt file. The result data format is as follows:
Teacher:
6 4 6 4 4
Student:
6 4 6 4 4
Use tab to separate numbers

I have never touched on perl. I have read a book for a day before, but I still cannot implement it. I hope you will not be enlightened by me. Thank you!