open(FH, "wrongs") or die $!; open(FH2, ">wrongs2") or die $!; while ($line = ) { $line =~ s/wrongs/wrongs3/; print FH2 "$line"; } close (FH); close (FH2);