sub comp { return -1 if $_[0] eq $_[1]; local $_ = $_[0] ^ $_[1]; /^([\x00]*)([^\x00])\2[\x00]*$/; $1 ? length$1 : -1; }