[benya]

Фигня... Вопщем есть перл перекодировщик :

Код:

$bad ="С‘1Р№1С†1Сѓ1Рє1Рµ1РЅ1Рі1С?1С‰1Р·1С…1СЉ1С„1С‹1РІ1Р°1Рї1СЂ1Рѕ1Р»1Рґ1Р¶1СЌ1СЏ1С‡1СЃ1Рј1Рё1С‚1СЊ1Р±1СЋ1РЃ1Р™1Р¦1РЈ1Рљ1Р•1Рќ1Р“1РЁ1Р©1Р—1РҐ1РЄ1Р¤1Р«1Р’1Рђ1Рџ1Р*1Рћ1Р›1Р”1Р–1Р*1РЇ1Р§1РЎ1Рњ1Р?1Рў1Р¬1Р‘1Р®";
$buk = "ё1й1ц1у1к1е1н1г1ш1щ1з1х1ъ1ф1ы1в1а1п1р1о1л1д1ж1э1я1ч1с1м1и1т1ь1б1ю1Ё1Й1Ц1У1К1Е1Н1Г1Ш1Щ1З1Х1Ъ1Ф1Ы1В1А1П1Р1О1Л1Д1Ж1Э1Я1Ч1С1М1И1Т1Ь1Б1Ю";
@glu = split(/1/, $bad);
@nor = split(/1/, $buk);
Ну и там где происходит раскодировка urlencoded вставить ссылку &folt;
sub folt {
for ($i=0; $i<65; $i++){
$value =~ s/$glu[$i]/$nor[$i]/g;	
}

Вроде работает...