Select Code to Download

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

...
    next if ! $token->is_text;
    print $token->return_text;
}

sub get_token {
    my $self = shift;
...
    bless $token, $class;
}
# create appropriate methods...

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

##################
package HTML::TokeParser::Easy;
...
        die "No such method: $AUTOLOAD";
    }
}