perl -le'print join "\t", $_, (unpack "B*", pack "N", $_), $_ >>5 for (0..256)' 254 00000000000000000000000011111110 7 255 00000000000000000000000011111111 7 256 00000000000000000000000100000000 8