my @arr;
while ( my $line = <HANDLE> ) {
    if ( $line =~ m/^\S/ ) {
        push @arr, $line;
    }
    else {
        $arr[-1] .= $line;
    }
}