Select Code to Download

#!/usr/bin/env perl
                                                          
...
my $s = 'eabcde';
$s =~ tr/abcd/efgh/;
print "$s\n";

#!/usr/bin/env perl 

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

eabcde
efgh
0