a-zA-Z0-9_ == \w

##</code><code>##

my %sysuser = map { $_ => 1 } qw(administrator accounts support postmaster webmaster spam-admin  technical billing sales purchase buy misuse assistance mail virus-admin manager usenet hostmaster);

if (defined $sysuser{$username}) {

##</code><code>##

$w->p('Please Accept The Terms And Conditions.');

print $w->header.
       $message;

##</code><code>##

my @errors=();
...
push @errors, 'Password Must Be Between 6-30 Chars With No Symbols.';

##</code><code>##

if (@errors) {
    print $w->header.
          join '', map { $q->p($_) } @errors;
    exit(0);
}

# you only need one cgi object
$w->redirect();