Perl：只是把“^”作为匹配的单字：只是匹配每一行的开头 $lines =~ s/^/file_4_ex_ch7.txt: /gm;

Perl：只是把“^”作为匹配的单字：只是匹配每一行的开头                     $lines =~ s/^/file_4_ex_ch7.txt: /gm;