Select Code to Download

  $ctr=0;
  while(/(<table>[^\000]*?<\/table>)/){
    $text=$1;
...
    s/<table_level1>[^\000]*?<\/table_level1>/$table2$table1/;
  }
  s/(<\/?table)_(level\d|\d)/$1/g;

<table>
    <tr>
        <td>
...
        <td colspan="2">Site : <a href="http://www.yahoo.com" target="
+_blank">www.yahoo.com</a></td>
    </tr>
</table>