my $html = ...
my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
my $text = $tree->as_text();