my $count = $x =~ tr/\0//c;
    print "'$s' at offset $i matched" unless $count > 1;