比较两个文件用perl

请教一下， 我现在在用perl 比较两个文件， 哪位高

手能指点一下， 大体是这样的：
第一个文件比如是：

第一个文件比如是：
1：
1253  4
1111  3
2435  5
2:
1254  6
2354  3
2353  4
第二个文件比如是：
1：
1111
2435
2：
1254

————————————————————
输出是：
1：
1111 3
2435 5
2：
1254 6

用perl 如何实现？？

请教一下， 我现在在用perl 比较两个文件， 哪位高手能指点一下， 大体是这样的：
第一个文件比如是：
1：
1253  4
1111  3
2435  5
2:
1254  6
2354  3
2353  4
第二个文件比如是：
1：
1111
2435
2：
1254

————————————————————
输出是：
1：
1111 3
2435 5
2：
1254 6

用perl 如何实现？？ 谢谢了！！！

用grep 过滤下。其实用shell中的grep 实现起来更方便