Except it doesn't work:

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

print((compare('abc', 'abcd') ? 'ok' : 'not ok'), "\n");
[download]

It should be

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