$ perl -e '
print pack q{(H*)*},
   map { sprintf q{%2x}, $_ } 0b111010, 072, 58, 0x3a;' | hexdump -C
00000000  3a 3a 3a 3a                                       |::::|
00000004