in reply to XPathing Up level

Using XML::XSH2, you can just write
open 875032.xml ;
for /List/Events/Event/Country echo :s (.) '|' ../../@WID ;

[download]

In Section Seekers of Perl Wisdom