my @lines = do { local @ARGV = $file; <> };