Perl библиотека для декодирования — есть готовое решение?

Question

[Cat_CooLeR]

Всем добра!
Простите, если поднимался такой вопрос, ответа на него я не нашел.
В Perl через библиотеку Net::IMAP::Simple получаю темы писем в таком виде:

=?windows-1251?B?yuDqIOTuIOLg8SDk7vXn4u7t6PLx/w==?=

=?koi8-r?B?8NLBytMtzMnT1CDEzNEg4czYwsXS1ME=?=

=?UTF-8?B?0J3QtdC00L7RgdGC0LDQstC70LXQvdC90L7QtSDRgdC+0L7QsdGJ0LXQvdC40LU=?=

=?koi8-r?B?z9TXxdQgzsEg2sHLwdo=?=

=?windows-1251?B?8eIg4OLy7iDv8ODp8Q==?=

=?koi8-r?B?9OXNwXRlc3TUxQ==?=

Есть ли готовое решение перевода строк к удобочитаемому виду, чтобы не делать велосипед?
Также, строки по типу =?koi8-r?B?9OXNwXRlc3TUxQ==?= - содержат и кириллицу, и латиницу.

Answer 1

[Rsa97]

use Encode qw(decode);
print decode("MIME-Header", 'Subject: =?windows-1251?B?yuDqIOTuIOLg8SDk7vXn4u7t6PLx/w==?=')."\n";
print decode("MIME-Header", 'Subject: =?koi8-r?B?8NLBytMtzMnT1CDEzNEg4czYwsXS1ME=?=')."\n"
print decode("MIME-Header", 'Subject: =?UTF-8?B?0J3QtdC00L7RgdGC0LDQstC70LXQvdC90L7QtSDRgdC+0L7QsdGJ0LXQvdC40LU=?=')."\n";

Subject: Как до вас дохзвонится
Subject: Прайс-лист для Альберта
Subject: Недоставленное сообщение

Comments

[Cat_CooLeR]

Большое спасибо!