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