use HTML::TokeParser::Simple;
  my $p = HTML::TokeParser::Simple->new(shift);

   while ( my $token = $p->get_token ) {
        # This prints all text in an HTML doc (i.e., it strips the HTML)
         if ($token->is_text) {
 #           next unless $token->is_text;
#                            push @pedo, $token->as_is;
                print $token->as_is();

                    }
              }