I am receiving a response in HTTP::Response, it is MIME, first part is XML, and second part is a Zip file. I need to extract the Zip file. I've tried to use...
XML::Parser
MIME::Parser
Email::MIME
And ->parts to get the attachment.

Here is a sample of the response; I have removed some private info, and the attached zip file will be mangled. I am receiving the file into memory, and I do save the message to a (binmode) binary file.

The goal is to Parse the XML and save the Zip file.

--MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6
Content-Type: text/xml; charset=UTF-8
Content-Transfer-Encoding: binary
Content-ID: <0.843b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6@apache
+.org>

<?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv=
+"http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Header><ns1:MeFH
+eader xmlns:ns1="http://www.....xsd"><ns1:MessageID>51331201523500000
+932R</ns1:MessageID><ns1:RelatesTo>51331201523500000932</ns1:RelatesT
+o><ns1:Action>SendSubmissions</ns1:Action><ns1:MessageTs>2015-10-04T2
+3:20:09Z</ns1:MessageTs><ns1:ETIN>55555</ns1:ETIN><ns1:SessionKeyCd>Y
+</ns1:SessionKeyCd><ns1:TestCd>T</ns1:TestCd><ns1:AppSysID>59999999</
+ns1:AppSysID><ns1:WSDLVersionNum>9.5</ns1:WSDLVersionNum></ns1:MeFHea
+der><wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01
+/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.o
+asis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd
+">
<wsu:Timestamp wsu:Id="">
<wsu:Created />
<wsu:Expires />
</wsu:Timestamp>
<saml:Assertion xmlns:saml="urn:oasis:names:tc:SAML:1.0:assertion" Ass
+ertionID="id-28be86bbae26a90625737084a2d89e294184e711" IssueInstant="
+2015-10-05T06:24:38.896Z" Issuer="http://www.forumsys.com/sentry" Maj
+orVersion="1" MinorVersion="1">
<saml:Conditions NotBefore="" NotOnOrAfter="2015-10-05T16:24:38.896Z">
<saml:DoNotCacheCondition />
</saml:Conditions>
<saml:AuthenticationStatement AuthenticationInstant="2015-10-05T06:24:
+38.896Z" AuthenticationMethod="urn:oasis:names:tc:SAML:1.0:am:passwor
+d">
<saml:Subject>
<saml:NameIdentifier Format="urn:oasis:names:tc:SAML:1.1:nameid-format
+:X509SubjectName">UID=username,OU=System,OU=External, OU=Internal,OU=
+Department, O=U.S.A.,C=US</saml:NameIdentifier>
<saml:SubjectConfirmation>
<saml:ConfirmationMethod>urn:oasis:names:tc:SAML:1.0:cm:sender-vouches
+</saml:ConfirmationMethod>
</saml:SubjectConfirmation>
</saml:Subject>
<saml:SubjectLocality IPAddress="192.168.182.20" />
</saml:AuthenticationStatement>
<saml:AttributeStatement>
<saml:Subject>
<saml:NameIdentifier Format="urn:oasis:names:tc:SAML:1.1:nameid-format
+:X509SubjectName">UID=username,OU=System,OU=External, OU=Internal,OU=
+Department, O=U.S.A.,C=US</saml:NameIdentifier>
<saml:SubjectConfirmation>
<saml:ConfirmationMethod>urn:oasis:names:tc:SAML:1.0:cm:sender-vouches
+</saml:ConfirmationMethod>
</saml:SubjectConfirmation>
</saml:Subject>
<saml:Attribute AttributeName="SMSESSION" AttributeNamespace="http://w
+ww.forumsys.com/sentry">
<saml:AttributeValue>O1UlDahKHbTjPt2Q/ZLTjNYs+......
Z7fLDzav6OW7g6xqsNRrBam3cNvDiLxpCE=</saml:AttributeValue>
</saml:Attribute>
</saml:AttributeStatement>
</saml:Assertion>
<wsse:UsernameToken>
<wsse:Username>59999999</wsse:Username>
</wsse:UsernameToken>
</wsse:Security></soapenv:Header><soapenv:Body><ns3:SendResponse xmlns
+:ns3="http://www......xsd" /></soapenv:Body></soapenv:Envelope>
--MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6
Content-Type: application/octet-stream
Content-Transfer-Encoding: binary
Content-ID: <urn:uuid:D9F0A4BBD2EBF816AD1444026286314>

PK
UlJYhL\)^@
<.Pg3O't:U GΕ.btNnRf2e3xچa
+ZuU`o>c›GfsAWQ    Z/wM'ԈM00p
+!d
--MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6--

[download]
Snippet: 
my $request = HTTP::Request->new(POST => 'https://<www>/Send');
$request->content($xmldat);

my $response = $userAgent->request($request);
my $xmlin = $response->content();

    open(F, "> /..../attach.eml\0") ;
    binmode(F);
    print F $xmlin;
    close(F);

 my $parser = Email::MIME->new($xmlin);
 my @parts = $parser->parts;
 for my $part (@parts) {
     my $content_type = $part->content_type;
     my $content = $part->body;
     print "\n$content_type :: $content\n";
}

[download]

In reply to HTTP::Response parse and save attached zip file. by sharprez

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.