perl - mime subject perl の解析に助けが必要です

Question

件名に UTF-8 文字が含まれているメールを gmail から取得できました。

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

私はその符号化された quoted-printable を見つけたインターネットを検索しました

表示されたコードを使用して件名をデコードしてみました

use MIME::QuotedPrint;

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

しかし、それは同じメッセージを出力します。私も削除しようとし?utf-8?ましたが、役に立ちませんでした。

Answer 1

MIME::Base64を使用?utf-8?B?し、最初と?=最後から削除します。

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