将base64编码的邮件转换为文本

Question

开始写一个简单的procmail食谱，如果它在主题中找到“未提供的”文本，就会将邮件转发给我。

:0:
* ^Subject:.*Unprovisioned.*
! me@test.com

不幸的是，来自邮件服务器的邮件消息中的subject字段采用MIME编码的单词语法。

表格是：“=？charset?encoding? text?=".

 Subject: =?UTF-8?B?QURWSVNPUlk6IEJNRFMgMTg0NSwgTkVXIFlPUksgLSBVbnByb3Zpc2lvbmVkIENvbm4gQQ==?=
    =?UTF-8?B?bGVydA==?=

以上主题是utf-8字符集，base64编码与文本折叠成两行.因此，我想知道是否有任何机制/脚本/实用程序来解析它并将其转换为字符串格式，以便我可以应用procmail筛选器。当然，我可以编写一个perl脚本来解析它，执行所需的验证，但如果可能的话，我会尽量避免它。

Answer 1

Encode::MIME::Header随Perl附带，可通过编码直接访问：

use Encode qw(encode decode);
my $header_text = decode('MIME-Header', $header);