while(<>){ $data = $data . $_ ; }

##</code><code>##

$data = do { local $/; <> };