{
  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