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