$user_name =~ tr/0-9a-zA-Z//dc;

##</code><code>##

$user_name =~ s/^[^a-z]*//i;