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