文件内容如下：
We will test Group1...
Teacher begin first -name A:
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 A:
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
需要用perl实现将made和lose的数据如数到result.txt文件中，结果数据格式如下：
Teacher:
6 4 6 4 6 4
Student:
6 4 6 4 6 4
数字之间用tab间隔
以前没有接触过perl今天看了一天的书，还是不能实现，希望大侠们不吝赐教，多谢
