$\ = $endofline; print OUTFILE $processed_string; # Appends the wanted end of line correctly #### { local $\ = $endofline; my $old_handle = select OUTFILE; # Write to OUTFILE only while (<>) { process($_); print $_; # write to selected handle (OUTFILE) and append $\ } select $old_handle; } # $\ has its old value again