use HTML::Parser;
my $parser = HTML::Parser::->new(api_version => 3);
$parser->handler(text => sub { print "This is the text: $_[0]" },
                         "text");
$parser->parse($html_to_parse);