This will strip all HTML tags:
##############################
use HTML::TreeBuilder;
use HTML::FormatText;
my $s; # the text out of which you wish to strip HTML
my $formatter = HTML::FormatText->new;
my $tree = HTML::TreeBuilder->new;
$tree->parse($s);
if ($tree) {
$formatter->format($tree);
$tree->delete; # DO NOT OMIT THIS STEP!
}
##############################
--Steve