>>758
utime undef, undef, $file1, $file2;

じゃだめかな。

ついでに
>>759
$q =~ s!(?<!/)\z!/!ms;
とか。