$ex = 'p!u-r-*e'; 
$ctl = 'pure';;
eval "\$ex =~ tr[$ctl][]cd;"; 
print $ex;;
pure