use locale;

sub is_alpha {
  my ($datum) = @_;
  # return "" so we don't get unitialized value errors
  $datum =~ /^(?:\w+)$/ ? $datum : "";
}

my $color = is_alpha(param('color')) || "default value";