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
    }
  }