use Color::Calc; my $colour = 'green'; my @rgb = color_contrast_hex($colour) =~ /(..)/g; print "contrasted RGB = @rgb\n"; __output__ contrasted RGB = ff 00 ff