use HTML::TreeBuilder;

my $html = ...;
my $Tree;

$Tree = HTML::TreeBuilder->new ();
$Tree->parse ($html);
$Tree->eof ();

my $Text = $Tree->as_text();