Select Code to Download

for my $i (0..20) {
    vec( $bitstring, $offset++, 4 ) = $i ;
}

my $bits = unpack("A4*", $bitstring);

print unpack("b*",$bitstring);

0000100001001100001010
1001101110000110010101
1101001110110111111100
0010000100110000100000

print unpack("h*",$bitstring);

0123456789abcdef012340