my $color = shift;
my @colors = split(/,/, $color, 3);
for (0 .. 2)
{
    $colors[$_] = int($colors[$_] || 0);
    $colors[$_] = 0 if $colors[$_] < 0;
    $colors[$_] = 255 if $colors[$_] > 255;
    $colors[$_] /= 255;
}