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