perl 文本判断处理问题

Qinxocy

文本内容如下：
6.6.6.6 the service is alive 40
6.6.6.6 the service is alive 50
6.6.6.6 the service is alive 60
6.6.6.6 the service is alive 70

5.5.5.5 the service is alive 50
5.5.5.5 the service is alive 60
5.5.5.5 the service is alive 80

7.7.7.7 the service is alive 100

4.4.4.4 the service is dead
4.4.4.4 the service is dead
4.4.4.4 the service is dead
4.4.4.4 the service is dead

3.3.3.3  the service is dead
3.3.3.3  the service is dead

2.2.2.2 the service is dead

怎么把上述文本，符合alive并且次数(相同ip)大于3次的提取处理并且alive后面的数字求平均值，最后打印出来效果： 6.6.6.6 the service is alive （平均值）
然后是匹配dead次数(相同ip)大于3次的，提取一行出来，打印出来：4.4.4.4 the service is dead

新手上路，求指教。。

Qinxocy

没人么。。纠结。。自己顶上去。

Qinxocy

没人回复。。。。。顶上去。。