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

   while ( my $token = $p->get_token ) {
     next if ! $token->is_text;
     print $token->return_text;
   }

##</code><code>##

  use HTML::TokeParser::Simple;
  use HTML::Tagset;

  my $p = HTML::TokeParser::Simple->new( \$html );

  while ( my $token = $p->get_token ) {
     next if $token->is_tag
              and
              exists $HTML::Tagset::isKnown{ $token->return_tag };
     print $token->return_text;
  }

##</code><code>##

  $token->is_end_tag( '/form' );
  $token->is_end_tag( 'form' );

##</code><code>##

  while ( my $token = $p->get_token ) {
     # the following would skip <p>, but not <pr>
     next if $token->is_valid_tag;
     print $token->return_text;
  }

##</code><code>##

  if ( $token->can_link ) {
    # check to see if it's really linking to something
  }

##</code><code>##

  $token->is_head_element;
  $token->is_table_element;
  $token->is_body_element;
  # etc.

##</code><code>##

  $token->return_attr;
  # becomes
  $token->attr;

  $token->return_text;
  # becomes
  $token->text;