Select Code to Download

  use HTML::TreeBuilder;

...
    $t->as_HTML
  }

  sub strip_a_elements
  {
...
    $t->as_HTML
  }

  # remember that HTML::TreeBuilder inherits from HTML::Element.
  sub HTML::Element::strip_elements
...
  # and call it:
  my $html_minus_links = strip_a_elements( $html );