$ perl -le " print join q/ /, unpack q/(A4)*/, unpack q/B*/, pack q/B33/, 1, 66 " 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 $ perl -le " print join q/ /, unpack q/(A2)*/, unpack q/H*/, pack q/B33/, 1,66 " 80 00 00 00 00