vec ($bitstring, $offset++,8) = $_ ;

##</code><code>##

my $bits = unpack("x1 C1", $bitstring);

##</code><code>##

my $bits = unpack("x1 A1", $bitstring);