my $slurp = do { open my $fh, '<', "inputfile"; local $/; <$fh> };