$bobpacked = pack( 'B*', '1110110010010000' )

print $bobpacked
8É
$bobagain = unpack( 'B*', $bobpacked )

print $bobagain
1110110010010000

##</code><code>##

$bobpacked = pack 'S', 0b111011001001000

print $bobpacked
Hv

$bobagain = unpack 'S', $bobpacked

printf '%b', $bobagain
111011001001000


##</code><code>##

printf '%b', unpack 'S', pack 'S', 0xEC90
1110110010010000

printf '%x', unpack 'S', pack 'S', 0xEC90
ec90

printf '%#X', unpack 'S', pack 'S', 0xEC90
0XEC90

printf '%#x', unpack 'S', pack 'S', 0xEC90
0xec90

##</code><code>##

printf '%#x', unpack 'S', pack 'S', 0xABCDEF
0xcdef

##</code><code>##

printf '%#x', unpack 'I', pack 'I', 0xABCDEF
0xabcdef

##</code><code>##

printf '%#8.8x', unpack 'I', pack 'I', 0xABCDEF
0x00abcdef

##</code><code>##

printf '%b', unpack 'C*', pack 'C*',  0xEC, 0x90
11101100

##</code><code>##

printf '%#8.8x', unpack 'C*', pack 'C*',  0xAB, 0xCD, 0xEF
0x000000ab

##</code><code>##

print unpack 'C*', pack 'C*',  0xAB, 0xCD, 0xEF
171 205 239

##</code><code>##

($b1,$b2,$b3) = unpack 'C*', pack 'C*', 0xAB, 0xCD, 0xEF
printf  '%#x', ( (($b1 << 8) + $b2 ) << 8) + $b3
0xabcdef