my $result;
eval "\$result = \$s =~ tr/$search/$replace/";