I'd suggest you use HTML::Strip (though I'm obviously biased, being the author):

use HTML::Strip;

my $hs = HTML::Strip->new();

my $clean_text = $hs->parse( $raw_html );
$hs->eof;
[download]