Stuff

The table header follows:
          <table width=\'100%\' cellpadding=\'0\' border=\'1\' cellspacing=\'0\' style=\'border-color: #333366;border-style:1px solid;border-collapse:collapse;border-width:1px;\'>
          <tr class=\'bgcolor5\' height=\'30\'>
            <td align=center class=\'Heading5\' style=" padding-top:6px; padding-bottom:6px;padding-left:5px;padding-right:5px;border-style:none;border-color:#333366"><b>City</b></td>
            <td align=center class=\'Heading5\' style=" padding-top:6px; padding-bottom:6px;padding-left:5px;padding-right:5px;border-style:none;border-color:#333366"><b>Address</b></td>
            <td align=center class=\'Heading5\' style=" padding-top:6px; padding-bottom:6px;padding-left:5px;padding-right:5px;border-style:none;border-color:#333366"><b>Type</b></td>
            <td align=center class=\'Heading5\' style=" padding-top:6px; padding-bottom:6px;padding-left:5px;padding-right:5px;border-style:none;border-color:#333366"><b>Contact Name</b></td>
            <td class="Heading5" align="center" width="90" style=\'border-style:solid;border-style:none;border-color:#333366;padding-left:5px;padding-right:5px;\'><b>Contact</b></td>
            <td align=center class=\'Heading5\' style=" padding-top:6px; padding-bottom:6px;padding-left:5px;padding-right:5px;border-style:none;border-color:#333366"><b>List Price</b></td>
 
The perl code to parse this portion is as follows:
my @headers = ('City', 'Address', 'Type', 'Contact Name', 'Contact', 'List Price') ;
my $table_extractor = HTML::TableExtract->new( headers => \@headers ) ;
my $content=$agent->{content} ;
$table_extractor->parse(\$content) ;
print "table_extractor=" . $table_extractor . "\n" ;
my $table_data ;
print "table_extractor->tables=" . $table_extractor->tables . "\n" ;
foreach $table_data ( $table_extractor->tables ) {
  print "table_data=" . $table_data . "\n" ;
  my $row ;
  foreach $row ( $table_data->rows ) {
    print join( ',', @$row ), "\n" ;
  }
}