$string =~ tr/%()*//d;

##</code><code>##

$string =~ tr/ /_/s;