I would start with HTML::TokeParser::Simple, which is a subclass of HTML::TokeParser (and that module itself is a subclass of HTML::Parser). From the H::TP::S docs:

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]

From there you allow the tags you do want. See Re: Using a config file in my regexp script. for an example i recently wrote that uses H::TP::S. You can also do a Super Search for HTML::TokeParser::Simple and find more examples. Feel free to ask specific questions about the module you do chose to do your dirty work. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)