$validate{$new_type}
     = eval "sub { my(\$v)=\@_; \$v=~$regex; }";