% perl -le '@bits = split(//, unpack("b*", 0x0)); print "@bits"' 0 0 0 0 1 1 0 0