Perl: shortest slurp

Source: Perl Slurp-Eaze

my $str = 'my '.do { local(@ARGV, $/) = $pl_filename; <> };