my $string = "foobar";
my $enc = unpack 'b*', $string;
$enc =~ tr/01/ \011/;
print "This is \$enc '$enc'\n";
$enc =~ tr/ \011/01/;
print "Now this is \$enc '", (pack 'b*', $enc) , "'\n";