Select Code to Download

use warnings;
use strict;
...
print "raw: [$text] \n";
$text =~ s{ ($cyril) }{$trans{$1}}xmsgo;
print "translation: [$text] \n";

c:\@Work\Perl\monks\nikop>perl xlate_cyrillic_1.pl
original: 't\'e|t\'i|t\'u|t\'a|.'
suggested: (?^msx: t\'e | t\'i | t\'u | t\'a )
raw: [t'i don't understand t'any cyrillic.]
translation: [ти don't understand тяny cyrilli
+c.]