#open INPUT and OUTPUT
while (<INPUT>) {
    chomp;
    next if m/^\s+$/;
    my $nextline;
    chomp($nextline = <INPUT> ) while $nextline !~ m/^\s+/;
    print OUTPUT $_,' ',$nextline;
}
#close INPUT and OUTPUT