一次更新多个文件

use strict;
chomp(my $date = `date`);
$^I = ".bak";
while(<>) {
    s/^Author:.*/Author:Randal /;
    s/^Phone:.*\n//;
    s/^Date:.*/Date:$date/;
    print ;
}

如果$^I中式个字符串，该字符串就会变成备份文件的扩展名。

如果$^I设为空字符串，就会直接修改文件的内容，但不会留下任何备份。