sub comp {
    local $_ = $_[0] ^ $_[1];
    return s/([^\x00])\1//g==1 && !tr/\x00/1/c;
}