my ( $color ) = (param('color') || '') =~ /^([[:alpha:]]+)$/;