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