my $s = 'eabcde';

my $search = 'abcd';
my $replace = 'efgh';

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

print "$search\n";
print "$replace\n";
print "$s\n";