Суть такая, с определенных почтовых ящиков по телнету забирается свежая почта, и данные в body обрабатываются. С одного почтового ящика письма приходят в base64 кодировка самого текста utf8.

Бьюс, но пока так и не получилось в верной последовательности перекодировать сообщение в человекочитабельный вид. Нужен совет

То, что приходит по телнету:



считается что в 0J/QtdGA0LjQvtC0LtCa0L7RgtC10LvRjNC90LDRjyAi0JjQ (subject сообщения)
закодировано Период.Котельная "Иолга"

По-возможности, хотелось бы решение с использованием модулей MIME::Base64 и Encode.

Вариант с доустановкой иных модулей с готовым решением не предлагать, так как там где это будет работать нет возможности приконнектиться к интернету и доставить что-то извне!(ну и собственно вручную что-то дополнительное компилировать тоже нет желания).

# print "=?utf-8?B?0J/QtdGA0LjQvtC0LtCa0L7RgtC10LvRjNC90LDRjyAi0JjQ?= =?utf-8?B?stC+0LvQs9CwIg==?=" | perl -0777 -MMIME::WordDecoder -CO -lne 'print mime_to_perl_string($_)'
Период.Котельная "И\xD0\xB2олга"

Это все здорово, конечно, но дочитай мой пост до конца





  

А в чём проблема с функцией decode_base64() из MIME::Base64?

Проблема не в decode_base64()  

В целом разобрался, пасиба. Решение:

И да, подразумевать, что там base64 или utf8 -- довольно некорректно. rfc2047 -- очень простая вещь, при этом распространённая, так что лучшэ поддержать её цэликом.