my $slurped=do{local $/; open my $fh,$file or die "$file:$!"; <$fh>};