open F1, "< $write" or die $!;
   open F2, "> $write2" or die $!;
   while (<F1>) {
     s/$search/$replace/ig;
     print F2 $_;
   }
   close F1;
   close F2;