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