use HTML::Parser;
our $parser=new HTML::Parser (
# Call &event_handler on all plaintext, pass plaintext as argument 0 (decodes entities)
'text_h' => [\&event_handler,'dtext']
);
our $text_buffer='';
$parser->parse($html);
sub event_handler {
$text_buffer.=$_[0];
}