my $level = 0;
s{<h(\d)>}{my $r = "";
           if ($level < $1) {$r .= "<table>"}
           if ($level > $1) {$r .= "</table>"}
           $level = $1;
           "$r<tr><td>"}eg;
s{\n}{</td></tr>\n}g;
$_ .= "</table>" while $level--;