my $data= do { local( *ARGV, $/ ) = [ $filename ]; <> };