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