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