my $h = unpack( 'H*', $bitstring ) ;