# in sub call replace
# my $content = $response->content;
# with this
(my $content = $response->content) =~ s/.*?(?=<\?xml)//s;