use HTML::TableExtract qw(tree);

  my $te = HTML::TableExtract->new();
  my $table = $te->first_table_found();
  # $table is an HTML::ElementTable structure
  # ... maybe edit the tree structure here
  print $table->as_HTML;

##</code><code>##

  use HTML::TableExtract;

  my $te = HTML::TableExtract->new();
  my $table = $te->first_table_found();
  foreach my $row ($table->rows) {
    foreach my $cell (@$row) {
      ... maybe edit text
    }
  }

##</code><code>##

  use HTML::TableExtract;

  my $te = HTML::TableExtract->new(keep_html => 1);
  my $table = $te->first_table_found();
  foreach my $row ($table->rows) {
    foreach my $cell (@$row) {
      ... maybe edit html text
    }
  }