my $string = do { local (@ARGV, $/) = $filename; <> };