my $contents= do { local(*ARGV,$/); @ARGV="myfile.txt"; <> };