while (<IN>) {
   $out =~ s/fred/larry/gi;
   print OUT;
}