join "", unpack "B8", pack "I" , $value;