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