my $string = do {local $/;<DATA>};