把第一个文件倒进一个hash里，
形如 %names={'01' => '不再为你美丽的女孩', ... };
把第二个读进一个scalar：
$/ = '';
$all_lines = <>;
然后做这个正则：

$all_lines =~ s/  TRACK (\d{2}) AUDIO
    TITLE "([^"]+)"
((    \B.*\n)*)/  TRACK \1 AUDIO
    TITLE \"$names{$1}\"\n\3/mg;
【 在 javame (yimin) 的大作中提到: 】
: 如果我要实现应该怎么写? 我是用开数组的方法完成的，谢谢。
: films.txt的文档如下，
: 一堆简介
: ...................
--
FROM 111.166.6.*