my $bita=pack("C,hex($bit));

##</code><code>##

my($RH,$GH,$BH)=($color =~ /(..)(..)(..)/);