use MIME::Base64; [ { index => 0, mime_type => 'x-message/rfc822-headers', mime_entity => '', '->get_header subject' => '[fwd] first message', '->get_header date' => '2453759 17470', '->get_header from_name' => 'Rob Nagler', '->get_header from_email' => 'nagler@bivio.biz', }, { index => 1, mime_type => 'text/plain', mime_entity => "second1\n\n", }, { index => 2, mime_type => 'x-message/rfc822-headers', mime_entity => '', '->get_header subject' => 'first message', }, { index => 3, mime_type => 'text/plain', mime_entity => "first1\n", }, ];