使用Email :: MIME和字节字符串

Question

我是一名perl新手并尝试使用Email :: MIME处理电子邮件的行。我设法隔离了消息的各个部分，但是正文部分似乎是“字节字符串”，它看起来只是一个大字符串，而不是一系列行。

 my $parser = MIME::Parser->new;
 $parser->extract_uuencode(1);
 $parser->extract_nested_messages(1);
 $parser->output_to_core(0);
 my $buf;
 while(<STDIN> ){
         $buf .= $_;
 }
 my $entity = $parser->parse_data($buf);
 my @mailData;
 my $msg = Email::MIME->new($buf);
 foreach my $part ( $msg->subparts ) {
    foreach my $sub_part ($part->subparts) {
        print $sub_part->body;
   }
}

如何将$ sub_part-＆gt;主体写入数组，以便我可以在foreach（）循环之外逐行处理？我希望能够做到这样的事情：

foreach my $line (@mailData) {
     print $line;
}