=head2 SNIPPET

You've just gotten a link with C<_TEXT> but you don't want the HTML
crap that comes with the text.  While C<HTML::LinkExtractor> won't get
rid of it for you, it's easier than easy with C<HTML::TokeParser::Simple>

    use HTML::TokeParser::Simple;

    my $Link = { '_TEXT' => '<a href="http://perl.com/"> I am a LINK!!! </a>'};

    warn StripHTML( \$Link->{_TEXT} );
    warn StripHTML( \'<q>Turn on your love light BABY!</q>' );

    sub StripHTML {
        my $HtmlRef = shift;
        my $tp = new HTML::TokeParser::Simple( $HtmlRef );
        my $t = $tp->get_token(); # MUST BE A START TAG (@TAGS_IN_NEED)
                                  # otherwise it ain't come from LinkExtractor
        if($t->is_start_tag) {
            return $tp->get_trimmed_text( '/'.$t->return_tag );
        } else {
           die " IMPOSSIBLE!!!! ";
        }
    }


=head1 AUTHOR