Come to the Dark Side

0 12345 11111 Come to the Dark Side 1st Ed ABC 1999 22222 Come to the Dark Side 2nd Ed ABC 2001 Come to the Dark Side SciFi Darth Vader ##

##

use strict;
use warnings;
use XML::LibXML;

use XML::LibXML qw( );

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('out.xml');

for my $result ($doc->findnodes('/books/book')) {
for my $interv ($result->findnodes('book')) {
   my $bk  = $interv->find('code_a');
   my $bk_name = $interv->find('name');

   print("$bk - $bk_name");
}
}

##

##

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

my $doc = XMLin('out.xml');

print Dumper($doc);