Select Code to Download

use strict;
use warnings;
...
my $string = 'a';

print 'unpack b = [', unpack( "b*", $string ), "]\n";