if ($FORM{username} =~ /\W/) {
  &error;
} else {
  &proceed;
}

##</code><code>##

if ($FORM{username} =~ /^\w+$/) {
  &proceed;
} else {
  &error;
}