在perl电子邮件脚本中解码.xml附件

Question

我正在尝试打开从保存为（.xml）的Gmail收件箱中提取的电子邮件附件。我知道它应该以某种MIME格式编码，但是当我拉动附件后使用DATA :: DUMPER时，我得到MIME格式，然后是.xml附件的乱码。我曾尝试使用Email :: MIME :: Encodings进行base64编码，但它似乎无法解码xml。我环顾四周但无法找到任何有关.xml解码的参考资料。有没有人知道任何模块或如何将.xml电子邮件附件转换为纯文本？我一直在使用正则表达式来解析存储在文本文件中的一些xml数据，所以我想将相同的正则表达式应用于.xml附件。

以下是没有任何解码的输出示例：

-------_chilkat_c97_9f83_b921b009.65ad83c8_.MIX^M
Content-Type: application/octet-stream;^M
        name="54431591_8290DA0611E424AF045FED224B3874C2.xml"^M
Content-Transfer-Encoding: base64^M
Content-Disposition: attachment;^M
         filename="54431591_8290DA0611E424AF045FED224B3874C2.xml"^M
^M
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4gDQo8SW5mcmluZ2VtZW50^M
IHhzaTpzY2hlbWFMb2NhdGlvbj0iaHR0cDovL3d3dy5hY25zLm5ldC92MS4yL0FDTlMydjFf^M

这是i Data :: dumper使用base64解码输出时的输出示例：

$VAR1 = 'H
       1ñ¯wmþ';