my $text = do { local( @ARGV, $/ ) = ( $file ); <> };