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