say s/(\d)([a-z])(?(?{ $2 ne $a[$1] })(*FAIL))/xx/g;
say;