while( $token = $p->get_token() ) {
  if( $token->[0] eq 'S' && 
      $token->[1] eq 'a' )
  {

##</code><code>##

while( $token = $p->get_token() ) {
  if( $token->[0] eq 'S' && 
      $token->[1] =~ /zindex/ )
  {