Select Code to Download

   use HTML::TokeParser::Simple;
   my $p = HTML::TokeParser::Simple->new( $somefile );
...
     next if ! $token->is_text;
     print $token->return_text;
   }

  use HTML::TokeParser::Simple;
  use HTML::Tagset;
...
              exists $HTML::Tagset::isKnown{ $token->return_tag };
     print $token->return_text;
  }

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

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

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

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

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