$a =~ tr/\W_//g;

##</code><code>##

$a =~ s/(\W|_)//g;