#!/usr/bin/perl -w

  use strict;
  use warnings;

  my $filename = 'library1.xml';
  
  use XML::LibXML;

  my $parser = XML::LibXML->new();
  my $doc    = $parser->parse_file($filename);




    print $_->data . " | " foreach ($doc->findnodes('/library/cd/artist/text()'));

  
	
	foreach ($doc->findnodes('/library/cd/artist')){
   my $artist = $_->to_literal;
   if $artist {
      print "$artist | ";
   
   else {
      print "0 | ";
   }
}