Help for this page

Select Code to Download

Select or download this

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

Select or download this

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