#!/usr/bin/perl
use warnings;
use strict;

use XML::XPath;
use XML::XPath::XMLParser;
    
    my $xp = XML::XPath->new(filename => 'E:\xmlfiles\eAla001.xml');
    
    my $nodeset = $xp->find('//@editor role'); # find all editors
    
    foreach my $node ($nodeset->get_nodelist) {
        print XML::XPath::XMLParser::as_string($node), "\n\n"; }