my $test = do { local $/; }; print $test;