Something

my $table_extractor = new HTML::TableExtract( headers => [qw(City Address Type Contact\ Name Contact List\ Price)] );
my $content=$agent->{content} ;
$table_extractor->parse(\$content) ;
my $table_data ;
foreach $table_data ( $table_extractor->tables ) {
  my $row ;
  foreach $row ( $table_extractor->rows ) {
    print join( ',', @$row ), "\n" ;
  }
}