$bob=pack("B*",11101100);
print DATAFILE $bob;

##</code><code>##

$bobagain=unpack("B*",$stufffromfile);
$bobunpacked=unpack("B*",$bob);
print $bobagain;
print "\n$bobunpacked";

##</code><code>##

$bob = pack("B*",1110110010010000);
print DATAFILE $bob;

##</code><code>##

$bobagain=unpack("B*",$stufffromfile);
$bobunpacked=unpack("B*",$bob);
print $bobagain;
print "\n$bobunpacked";

##</code><code>##

from file:         111000111000010010000111
from $bobunpacked: 101101100100111110000000