Another possiblity might be:

  while ($token = $p->get_token()) {
    if ($token->is_tag()) {
      # do something

    }
  }
[download]

Note: I have no experience with XML::TokeParser so it is possibile that this code is completly useless...