in reply to char. VS char.

$example = 'ABC';
$example =~ tr/ABC/WRT/;

[download]

In Section Seekers of Perl Wisdom