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