-1,234,56 0001 0010 0011 0100 0101 0110 0111 1101 1 2 3 4 5 6 7 - $ perl -le " print join q/ /, split /....\K/, unpack q/B*/, pack q/H*/, q/1234567-/ " 0001 0010 0011 0100 0101 0110 0111 1101 $ perl -le " print join q/ /, unpack q/(A4)*/, unpack q/B*/, pack q/H*/, q/1234567-/ " 0001 0010 0011 0100 0101 0110 0111 1101