Select Code to Download

my $xml = "<tbody>one\ttwo\tthree</tbody>\n"x40;

...
    $temp =~s#</tbody>#</para></entry></row>#g;
    return \$temp;
}

my $xml = "<tbody>one\ttwo\tthree</tbody>\n"x5;
$xml =~ s#<tbody>(.*?)</tbody>#${TableBody(\$1)}#gies;
...
    }
    return \"<row>$return_xml</row>";
}