Кодировка тела указана для печати; кодировка заголовка (субъекта) - это кодировка MIME «кодированное слово» (тип «B» для base64). Лучший способ справиться с ними обоими - это передать электронную почту в модуль, способный работать с MIME, такой как Email :: MIME или более старый и громкий MIME :: Lite * 1004. *.
Например:
# $message was retrieved from IMAP
my $mime = Email::MIME->new($message);
my $subject = $mime->header('Subject'); # automatically decoded
my $body = $mime->body_str; # also automatically decoded
Однако, если вам нужно работать с ними вне контекста всего сообщения, существуют также такие модули, как Encode :: MIME :: Header и MIME :: QuotedPrint .