eval sprintf "tr/%s/%s/", map quotemeta, $oldlist, $newlist; #### eval "tr/\Q$oldlist\E/\Q$newlist\E/";