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