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