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

##</code><code>##

sub compare {
  ($_[0] ^ $_[1]) =~ /^\0*(?:[^\0]\0*)?$/
}