my @anew = map {
    $_ == 0
    || $b[ $_ -1 ] ne 'z'
    || $b[ $_    ] ne 'z'
        ? $a[ $_ ] : ()
} 0 .. $#a;