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