while (<DATA>) {
    $_ .= <DATA>;
    s/^0\s*(.*)\n\s+(.*\n)/$1 $2/s;
    print;
}

##</code><code>##

{  local $/ = undef;
   $_ = <DATA>;
    s/^0\s*(.*)\n\s+(.*\n)/$1 $2/s;
    print;
}