# Tye + Juerd in id=204874
sub slurp {  local( *ARGV, $/ ); @ARGV = shift; <> };

# slurp a bunch of files
@files = do { local(@ARGV, $/) = @filenames; <> };