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