Same as above, only instead of

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

use something like

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

Although I've never heard of the zindex# tag for HTML, so I can't say whether HTML::Parser catches it.