my $string; { local $/ = undef; $string = ; }