#!/usr/bin/perl --

use strict;
use warnings;

use LWP::Simple;
use Data::Dumper;
use XML::Simple;
my $xml= get('http://perlmonks.org/?displaytype=xml;node_id=719151');
#print Dumper( XMLin( $xml ));
$xml = XMLin( $xml );
$xml =  $xml->{data}{field}{content};
$xml =~ s/^.+?(<\?xml)/$1/s;
$xml =~ s/(soap:Envelope>).*$/$1/s;

print $xml;
__END__