my $match = $s1 ^ $s2;
my $match_count = $match =~ tr/\00//;
print "$match_count\n";

# This gives 5, because N is counted.
# How can I make it to return 4 instead?