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