my $foo = do { local (@ARGV, $/) = "bar.txt"; <> };