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

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

print $bobagain
1110110010010000