Привет!
15 декабря 2009 г. 11:21 пользователь Dmitry E. Oboukhov
<unera на debian.org> написал:
> use utf8;
>
> my %th = qw(
> у y е e а a р p
> о o с c Е E Н H
> З 3 Х X В B А A
> Р P О O К K С C
> M М Т T Ь b);
>
> $str =~ s/((??{join '|', keys %th}))/$th{$1}/ges;
Спасибо, то что надо, и красиво к тому же. :)