if(!($FORM{'username'} =~ /[^a-zA-Z0-9_]/)) {

   print "Content-type: text/html\n\n";
   print "<b> Error: spaces not allowed</b>\n";
   exit;

} else { &proceed; }