my $foo;
{ local $/; $foo = <>; }