foreach $f (@files) {
   open IN "$f" or die "$f, $!\n";
   {
      local $/;
      $str = <IN>;
   }
   close IN;
   $str =~ s/old/new/ig;
   open OUT ">$f.new" or die "$f.new, $!";
      print OUT $str;
   close OUT;
}