open (FILE, "<$file") or die "Can't open $file";
open (FILE_BU, ">$file_bu") or die "Can't open $file_bu";
while (<FILE>) {
   $_ =~ s/search/replace/g;
   print FILE_BU "$_";
}
close FILE_BU;
close FILE;