Select Code to Download

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

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