еще быдлокод #use utf8;
use Encode;
$pairs=decode_utf8("аб|ав|Ав|аг|ад|ае|аж|аз|аи|ай|ак|ал|Ал|ам|ан|Ан|ап|ар|Ар|ас| ат|ау|аф|ах|ац|ач|аш|ащ|аю|ая|ба|Ба|бе|Бе|би|Би|бл|бн|бо|Бо|бр|Бр|бс|бу|бщ|бъ|бы |ва|Ва|вг|ве|Ве|ви|Ви|вк|вл|Вл|вн|во|Во|вр|вс|вт|ву|вш|вы|вь|вя|га|Га|гд|ге|Ге|г и|гл|гн|го|Го|гр|Гр|гу|да|Да|дв|де|Де|дж|Дж|ди|дк|дл|дн|до|До|дп|др|дс|ду|ды|дь| дя|еа|еб|ев|Ев|ег|ед|ее|еж|ез|еи|ей|ек|ел|ем|ен|ео|еп|ер|ес|ет|еф|ех|ец|еч|еш|ещ |ея|ём|ён|ёр|ёт|жа|жд|же|жи|жн|жо|жу|за|За|зв|зд|зе|зи|зл|зм|зн|зо|зр|зу|зы|иа|и б|ив|Ив|иг|ид|ие|иж|из|Из|ии|ий|ик|ил|им|ин|Ин|ио|ип|ир|ис|Ис|ит|иф|их|иц|ич|иш| ищ|ию|ия|йл|йн|йо|йс|йт|ка|Ка|кв|ке|кж|ки|Ки|кл|кн|ко|Ко|кр|Кр|кс|кт|ку|Ку|кц|ла |Ла|лг|ле|Ле|лё|лж|ли|Ли|лк|лл|лн|ло|лс|лу|лы|ль|лю|ля|ма|Ма|мб|ме|Ме|ми|Ми|мл|м м|мн|мо|Мо|мп|мс|му|мы|мя|на|На|нг|нд|не|Не|ни|Ни|нк|нн|но|Но|нр|нс|нт|ну|нф|нц| нч|ны|нь|ня|об|Об|ов|ог|од|ое|ож|оз|ои|ой|ок|ол|ом|он|оо|оп|ор|Ор|ос|Ос|от|От|оф |ох|оц|оч|ош|ощ|оэ|ою|оя|па|Па|пе|Пе|пи|пл|пн|по|По|пп|пр|Пр|пт|пу|пы|ра|Ра|рб|р в|рг|рд|ре|Ре|рж|ри|Ри|рк|рл|рм|рн|ро|Ро|рр|рс|рт|ру|Ру|рх|рш|ры|рь|ря|са|Са|св| Св|се|Се|сё|си|Си|ск|сл|см|См|сн|со|Со|сп|Сп|ср|СР|сс|СС|ст|Ст|су|сх|сч|СШ|сы|сь |ся|та|Та|тв|те|Те|ти|тк|тл|тн|то|То|тр|Тр|тс|тт|ту|ты|ть|тя|уа|уб|ув|уг|уд|уе|у ж|уз|ук|ул|ум|ун|уп|ур|ус|ут|ух|уч|уш|ущ|ую|фа|Фа|фе|Фе|фи|Фи|Фл|фо|фр|Фр|фу|ха| Ха|хи|хн|хо|хр|ца|це|ци|цк|цы|ча|че|Че|чё|чи|чк|чн|чт|ша|ША|ше|ши|шк|шл|шн|шо|шт |ща|ще|щи|ъе|ыв|ые|ый|ык|ыл|ым|ын|ып|ыр|ыс|ыт|ых|ыч|ыш|ьб|ье|ьз|ьк|ьм|ьн|ьс|ьт|ь ш|ью|ья|эк|эл|эн|эт|Эт|юб|юд|ют|юч|ющ|яб|яв|яд|яе|яз|ял|ям|ян|яр|яс|ят|ях|ящ|яю| а|А|б|Б|в|В|г|Г|д|Д|е|Е|ё|Ё|ж|Ж|з|З|и|И|й|Й|к|К|л|Л|м|М|н|Н|о|О|п|П|р|Р|с|С|т|Т| у|У|ф|Ф|х|Х|ц|Ц|ч|Ч|ш|Ш|щ|Щ|ъ|Ъ|ы|Ы|ь|Ь|э|Э|ю|Ю|я|Я");
foreach $enc(qw/cp1251 utf8 cp866 koi8r iso-8859-5 MacCyrillic/){
$r=encode($enc,$pairs);
$r=~s/([^\|])/sprintf("\\x%.2x",ord($1))/egs;
print "".$enc." == $r\n\n";
saransk
22.10.2011 16:03 QIP
Do you really want to delete ?