my $_name     = param('name')    || '';
  my ( $name )  = $_name  =~ /^([[:alpha:][:punct:][:space:]]+)$/;

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