perl 转换文本求助

有如下文本：
tcp/1-65535:7709
tcp/1-65535:7710
tcp/1-65535:7741
tcp/1-65535:7001
tcp/1-65535:7456
tcp/29:53
tcp/7752:53
tcp/4561:53
tcp/20:21
udp/54:52
......
转换成iptables，冒号前为源端口，冒号后为目的端口，实现iptables的多端口匹配，如：
-p tcp -m multiport --sports 1:65535 --dports 7709,7710,7741,7001,7456
-p udp -m multiport --sports 29,7752,4561 --dports 53
-p tcp --sport 20 --dport 21
-p udp --sport 54 --dport 52

这个实现起来不复杂了。

老湿，你这个没规律啊