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