$user_name =~ s/[^a-zA-Z0-9]//g;

##</code><code>##

$user_name =~ s/[^a-z0-9]//gi;