$ans = eval "\$str =~ tr/$SrchStr/$SrchStr/";
die $@ if $@;