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