In sub signup change:
to
Using . and _ may cause problems so beware.
Installs:http://wiredon.net/gt
FAQ:http://www.perlmad.com
Code:
unless ((length($in{'userid'}) >= 3) and (length($in{'userid'}) <= 12) and ($in{'userid'} =~ /^[a-zA-Z0-9]+$/)) {Code:
unless ((length($in{'userid'}) >= 3) and (length($in{'userid'}) <= 12) and ($in{'userid'} =~ /^[a-zA-Z0-9._]+$/)) {Installs:http://wiredon.net/gt
FAQ:http://www.perlmad.com