sub compare {
    (my $xor=$_[0]^$_[1]) =~ tr/\0//d;
    length $xor < 2;
}