my $word = "abc";
$abc =~ tr/acb/llo/;
print $word;