$ perl -le " print join q/ /, unpack q/(A4)*/, unpack q/B*/, pack q/B33/, join q//, unpack(q/B1/,1), unpack q/B32/, 66 "

0001 1011 0001 1011 0000 0000 0000 0000 0000 0000