$string =~ s/[$oldchars]//g

##</code><code>##

eval "\$string =~ tr/$oldchars/$newchars/"