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