my $s = do{ local( @ARGV, $/)='big.file'; <> };