$user_name =~ s/[\W_]//g;

##</code><code>##

$user_name =~ /[\W_]/ and 
    warn "user name is bad\n"