#!/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">