Did you ever have a look at the transliteration operator tr? If the array of chars you are translating is dynamic, you might want to use it in an eval:

$from = 'abcdef';
$to   = 'ghijkl';
eval qq{ tr/$from/$to/ };
[download]

--bwana147