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