($s1 ^ $s2) =~ /[^\0]/ and return $-[0];