$bobpacked = pack 'S', 0b111011001001000

print $bobpacked
Hv

$bobagain = unpack 'S', $bobpacked

printf '%b', $bobagain
111011001001000