unpack("x1 C1", $bitstring);

##</code><code>##

unpack("x1 A1", $bitstring);