May I suggest to use HTML::TokeParser::Simple written by Ovid?

# grabbed from man page
use HTML::TokeParser::Simple;
my $p = HTML::TokeParser::Simple->new( $somefile );
while ( my $token = $p->get_token ) {
  # This prints all text in an HTML doc (i.e., it strips the HTML)
  next unless $token->is_text;
  print $token->as_is;
}
[download]

Ciao, Valerio