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