my $parser = HTML::TokeParser::Easy->new( $some_html );

while ( my $token = $parser->get_token ) {
    # This prints all text in an HTML doc (i.e., it strips the HTML)
    next if ! $token->is_text;
    print $token->return_text;
}