#!/usr/bin/perl -- 

use strict;
use warnings;


use XML::Simple;
use Data::Dumper;

my $xml = q~<?xml version='1.0'?><listaNews>
<new>blah blah blah</new>
<new>blah blah blah</new>
</listaNews>~;

print "$xml\n\n";



my $VAR1 = XMLin($xml, ForceContent=>0, ForceArray=>0);
print Dumper( $VAR1), "\n\n";

pop @{$VAR1->{new}};

print XMLout($VAR1, NoAttr=>1,RootName=>'xml',XMLDecl => 1, keyattr =>
+ []);

__END__
<?xml version='1.0'?><listaNews>
<new>blah blah blah</new>
<new>blah blah blah</new>
</listaNews>

$VAR1 = {
          'new' => [
                   'blah blah blah',
                   'blah blah blah'
                 ]
        };


<?xml version='1.0' standalone='yes'?>
<xml>
  <new>blah blah blah</new>
</xml>
[download]