use locale;

my $color = param('color') =~ /^\w+$/ ?
            param('color') :
            "default color";