Select Code to Download

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

open(FH, ">fh");
$g = "0110110001101101";
...

print $g . "\n";
print unpack("B*", $from_file), "\n";