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