my ($b,$g,$r) = sprintf('%06x', $color) =~ /(..)/g;