( $s[ $ai ] ^ $s[ $_ ] ) =~ tr[\0][\0]