У меня, например, так работает:
use Convert::Cyrillic;
use MIME::EncWords qw(:all);
...
charset
- глобальная переменная. Получена из header
'a письма - из строки Charset=...
sub decodeparam{
my $src = shift(); # текст письма передается сюда
if($src =~ /\=\?([a-zA-Z0-9\-]+)\?[BQbq]\?/i){ # =?utf-8?Q??=
$src = decode_mimewords($src);
if ($1 =~ /koi/i){$src = Convert::Cyrillic::cstocs('KOI8', 'WIN', $src);}
if ($1 =~ /iso/i){$src = Convert::Cyrillic::cstocs('ISO', 'WIN', $src);}
if ($1 =~ /utf/i){$src = Convert::Cyrillic::cstocs('UTF8', 'WIN', $src);}
}
else{
if ($charset =~ /koi/i){$src = Convert::Cyrillic::cstocs('KOI8', 'WIN', $src);}
if ($charset =~ /iso/i){$src = Convert::Cyrillic::cstocs('ISO', 'WIN', $src);}
if ($charset =~ /utf/i){$src = Convert::Cyrillic::cstocs('UTF8', 'WIN', $src);}
}
return $src;
};
Кодировку определяет из двух источников.
Работает больше года без ошибок. Правда, в основном, конечно, почта приходит из яндекса, гмейла, мейла и других больших почтовиков. А у них, в основном, все по правилам.