Perl: slurp STDIN

Source: How can I slurp STDIN in Perl?

my $str = do { local $/;  };