Lingua::DetectCharset из пакета <a href="http://search.cpan.org/search?module=cyrillic">cyril...
или модуль <a href="http://www.mts-nn.ru/~gosha/perl-scripts/index.html#Cyrillic....URL: http://search.cpan.org/search?module=cyrillic
Обсуждается: http://www.opennet.me/prog/info/1121.shtml
Поковырялся в готовых скриптах и слепил для себя новый -
DetectCharset - http://github.com/Meettya/DetectCharset
делался по мотивам Lingua::DetectCharset
распознает UTF-8 CP1251 KOI8-R ISO-8859-5 CP866