一个Perl文本处理实例

假设存在file1, file2两个文本文件， 文件每行格式为：
| .* | .*; | .* | .*;