in reply to char. VS char.

How about: 
$string =~ tr/ABC/WRT/;

[download]

-Blake

In Section Seekers of Perl Wisdom