if (($derange ^ $string) !~ /\0/) {
    print "'$derange' is a derangement\n";
  }