<$fh_in>; # Skip header { local $/; print { $fh_out } <$fh_in>; }