use HTML::Parser;

  sub extract_html_text
  {
    my $html = shift;
    my $text = '';
    HTML::Parser->new( api_version => 3, text_h => [ sub { $text .= "@_"; }, "dtext" ] )->parse( $html )->eof;
    $text
  }


##</code><code>##

  use HTML::TreeBuilder;

  sub extract_html_text
  {
    HTML::TreeBuilder->new_from_content($_[0])->as_text
  }