eval sprintf "tr/%s/%s/", map quotemeta, $oldlist, $newlist;

##</code><code>##

eval "tr/\Q$oldlist\E/\Q$newlist\E/";