Select Code to Download

  my $q = '' ;
  my $i = 0 ;
  @anew = grep { my $p = $q ; $q = $b[$i++] eq 'z' ; !($p && $q) } @a 
+;