open FIN, ... or die ...; open FOUT, ... or die ...; while($line = ) { $line =~ s/somepattern/somethingelse/g; } close FIN; close FOUT;