return not unpack ('N', pack ('C4', split /\./, $i) ^ pack ('C4', split /\./, $1)) >> 32 - $2;