>>>А зачем?
>>
>>я хочу проверить как будет работать с фиксированной строкой, а потом уж
>>параметр передавать буду
>>
>>мне , к примеру, нужно "привет" перевести в "privet"
>вот это:
>@letters = split //, $message;
>for (@letters){$_mes = $hash{$_mes}};
>
>print $mes;
>
>замени на
>
>foreach (keys %hash) {
>$message=~s/$_/$hash{$_}/g if($message=~m/$_/g);
>}
>
>print $message;
>
>и убери элемент '.' из хэша - точку-то зачем транслитерировать??? :)

Огромное спасибо!!!!!!!
Выручил....работает супер!!!