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

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