while (my $line = <$in_fh>) { chomp $line, print $out_fh $line, $/; }