eval {
   $t =~ tr/$search/$replace/;
};