eval "\$ex =~ tr[\Q$ctl\E][]cd;";