$ perl -e'CORE::say unpack "B*", pack "L>", 3' 00000000000000000000000000000011 #### $b |= 1 << 2;