( my $line = do { local $/; <$fh> } ) =~ tr/\n/ /s;