Select Code to Download

use HTML::TokeParser::Simple;
my $html =<<'END_HTML';
<table width="200">
...
    $tag = "<table $tag>";
    return $tag;
}