$ctr=0;
  while(/(<table>[^\000]*?<\/table>)/){
    $text=$1;
    while($text=~/<table>/){
      $tag=$&;
      $ctr=$ctr+1;
      $tag=~s/(<table)/\1$ctr/;
      $text=~s/<table>/$tag/;
    }
    $text=~s/(<table)$ctr>/\1_level$ctr>/g;
    $text=~s/(<\/table)>/\1_level$ctr>/g;
    $ctr=0;
    $text=~s/(<table)[0-9]+>/\1>/g;
    $text=~s/(<\/?)(thead|tbody)([^>]*)?>//g;
    $text=~s/(<\/?)(th)([^>]*)?>/$1td>/g;
    while($text =~ /<a href="([^"]*)">[^\000]*?<\/a>/){
      $href = $1;
      $class = "";
      if($href =~ /^http/i){  $class = "http";}
      if($href =~ /^www/i){   $class = "nohttp";}
      if($href =~ /^mailto/i){$class = "mailto";}
      if($href =~ /^ftp/i){   $class = "ftp";}
      if($class eq ""){
        $text =~ s/<a href="([^"]*)">([^\000]*?)<\/a>/\2/;
      }else{
        $text =~ s/<a href="([^"]*)">([^\000]*?)<\/a>/<remotelink hrefclass="$class" href="\1" >\2<\/remotelink>/;
      }
    }
    s/<table>[^\000]*?<\/table>/$text/;
  }

  # Remove table and img tags inside table if an <img /> tag was encountered
  while (/<table_level(2|3)>[^\000]*?<\/table_level\1>/) {
    $table2=$&;
    if ($table2 =~ /<img /) {
    # Remove all table tags including <img /> tag
    $table2=~s/<\/?(table_level(2|3)|tr|td)(\s+[^>]*)?>|<img\s+[^>]*\/>//g;
    s/<table_level(2|3)>[^\000]*?<\/table_level\1>/$table2/;
    }  
    else {
      $table2=~s/(<\/?table_level\d)/$1_temp/g;
      s/<table_level(2|3)>[^\000]*?<\/table_level\1>/$table2/;
    } 
  }
  s/(<\/?table_level\d)_temp/$1/g;

  # Extract table inside table if no <img /> tag was encountered
  # inside the inner table.
  while (/(<table_level1>[^\000]*?<\/table_level1>)/) {
    $table1=$1;
    #$table2="";
    $table="";
    while ($table1=~ /<table_level2>([^\000]*?)<\/table_level2>/) {
      $table2=$1;
      $table=$&;

      # Extract inner table and place it after the second level table  
      $extracted_table3="";
      while ($table2 =~ s/(<table_level3>[^\000]*?<\/table_level3>)//) {
        $extracted_table3="$extracted_table3\n$1"; 
      }

      $table2=~s/<table_level2>([^\000]*?)<\/table_level2>/$table$extracted_table3/g;
      #$table2=~s/(<table_level2>[^\000]*?<\/table_level2>)/$1$extracted_table3/g;
      s/(<table_level2>[^\000]*?<\/table_level2>)//;
      #$table2=~s/(<\/?table)_level2/$1_2/g;
    }
    $table1=~s/<table_level2>([^\000]*?)<\/table_level2>//;
    $table1=~s/<table_2>([^\000]*?)<\/table_2>//;
    $table1=~s/(<\/?table)_level1/$1/g;
    s/<table_level1>[^\000]*?<\/table_level1>/$table2$table1/;
  }
  s/(<\/?table)_(level\d|\d)/$1/g;