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