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