eval "\$var =~ tr/$pattern1/$pattern2/;";