$ cat t.pl #!/usr/bin/perl # vim: set ts=8 sw=2 et: use strict; use warnings; use XML::Bare; use Data::Dump qw/dump/; my $page = < 000 Echo Ok - All systems are up. XML my $ob = new XML::Bare( text => $page ); my $root = $ob->parse(); print "here comes the description:\n"; print $root->{PayoneerResponse}{Echo}{Description}{value}; print "\n\nand here's a dump of \$root:\n"; print dump $root; $ ./t.pl here comes the description: Echo Ok - All systems are up. and here's a dump of $root: { PayoneerResponse => { Echo => { Description => { _i => 95, _pos => 4, _z => 149, value => "Echo Ok - All systems are up." }, Status => { _i => 73, _pos => 3, _z => 91, value => "000" }, _i => 66, _pos => 2, _z => 158, value => "\n", }, _i => 47, _pos => 1, _z => 178, value => "\n", }, _i => -273705520, _pos => 0, _z => 0, value => " \n", }