my $slurp;
{local $/;
 $slurp = <INPUTFILE>};

##</code><code>##

my $slurp = do {local(@ARGV, $/) = "inputfile"; <>};

##</code><code>##

my $slurp = `cat inputfile`;