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