$g = "0110110001101101";
$bob = pack("B*", $g);
print $g . "\n";
print unpack("B*", $bob);