Нужна помощь в разборе мим предмет Perl

Question

мне удалось получить электронные письма от Gmail с их предмет содержит UTF-8 символов,

Subject: =?utf-8?B?5L2g5aW9IOS9oOWlvQ==?= 

Я искал интерент я нашел его кодированный кавычко печати

Я попытался используя показанный код для декодирования испытуемого

use MIME::QuotedPrint; 

print decode_qp("?utf-8?B?5L2g5aW9IOS9oOWlvQ==?="); 

но печатает то же самое сообщение, я также попытался удалить ?utf-8?, но не использовать, так что может помочь мне в преобразовании аЬ Ове при условии UTF-8 символов вместо кодирования выше

Answer 1

Используйте Encode::MIME::Header модуль, как и в

$ perl -MEncode -le 'print Encode::encode("utf8", \ 
    Encode::decode("MIME-Header", "=?utf-8?B?5L2g5aW9IOS9oOWlvQ==?="))' 
你好 你好 

или

#! /usr/bin/env perl 

use v5.10.0; 
use strict; 
use warnings; 

use Encode qw/ decode /; 

my $subject = "=?utf-8?B?5L2g5aW9IOS9oOWlvQ==?="; 

binmode STDOUT, ":encoding(UTF-8)"; 
say decode "MIME-Header", $subject; 

Answer 2

Использование MIME::Base64, удалить ?utf-8?B? с самого начала и ?= от конец:

use MIME::Base64; 
print decode_base64('5L2g5aW9IOS9oOWlvQ=='), "\n";