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