#!/usr/bin/perl
 
use strict;
use warnings;
 
my $response = do { local $/ = undef; <DATA>; };
 
$response =~ s/\A(?:^HTTP.*?(?:^.+$)*^$)+//sm;
print $response;
 
__DATA__
HTTP/1.1 100 Continue
 
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Server: Microsoft-IIS/10.0
X-Powered-By: ASP.NET
Date: Fri, 05 May 2017 09:52:02 GMT
Content-Length: 338962
 
<s:Envelope xmlns:s="http://s...content-available-to-author-only...p.org/soap/envelope/">
    <s:Body><RetrieveStoredRoutesResponse xmlns="http://s...content-available-to-author-only...e.com">
 

IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CgpteSAkcmVzcG9uc2UgPSBkbyB7IGxvY2FsICQvID0gdW5kZWY7IDxEQVRBPjsgfTsKCiRyZXNwb25zZSA9fiBzL1xBKD86XkhUVFAuKj8oPzpeLiskKSpeJCkrLy9zbTsKcHJpbnQgJHJlc3BvbnNlOwoKX19EQVRBX18KSFRUUC8xLjEgMTAwIENvbnRpbnVlCgpIVFRQLzEuMSAyMDAgT0sKQ29udGVudC1UeXBlOiB0ZXh0L3htbDsgY2hhcnNldD11dGYtOApTZXJ2ZXI6IE1pY3Jvc29mdC1JSVMvMTAuMApYLVBvd2VyZWQtQnk6IEFTUC5ORVQKRGF0ZTogRnJpLCAwNSBNYXkgMjAxNyAwOTo1MjowMiBHTVQKQ29udGVudC1MZW5ndGg6IDMzODk2MgoKPHM6RW52ZWxvcGUgeG1sbnM6cz0iaHR0cDovL3MuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnAub3JnL3NvYXAvZW52ZWxvcGUvIj4KICAgIDxzOkJvZHk+PFJldHJpZXZlU3RvcmVkUm91dGVzUmVzcG9uc2UgeG1sbnM9Imh0dHA6Ly9zLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLmNvbSI+Cg==