my ($color, ...) = @_;

   $color ||= '';
   my @colors =
      map { s/[^\d.-]//g; $_ ||= 0; $_ < 0 ? 0 : $_ / 255 }
      (split(/\s*,\s*/, $color, 4), (0) x 3)[0..2];