my $foo;
  while( <> ) {
    chomp; # maybe, maybe not, depending on the circumstances
    if( defined( $foo )) {
      $foo .= " $_";
    }
    else {
      $foo = $_;
    }
  }