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