my $file = do { local $/ = <$fh> };