while (defined($_ = )) { ... } #### my @lines = do { open my $fh, '<', $file or die "$file: $!\n"; <$fh> }; #### my @lines = do { local @ARGV = $file; <> };