my $xor = $str1 ^ $str2;
        while($xor =~ /[^\0]/g) {
            my $i = pos($xor) - 1;  # or: $-[0]
            push @mismatch, "$i." . substr($str1,$i,1) . substr($str2,$i,1);
        }