#!/usr/bin/env perl
                                                          
use strict;

my $s = 'eabcde';
$s =~ tr/abcd/efgh/;
print "$s\n";

##</code><code>##

#!/usr/bin/env perl 

use strict;

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

my $result = eval "tr/$search/$replace/";

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

##</code><code>##

eabcde
efgh
0