use 5.010;
use XML::LibXML 1.94;
use PerlX::MethodCallWithBlock;

XML::LibXML::
	-> load_xml(location => 'myfile.xml')
	-> findnodes("//nonterminal | //token")
	-> map { $_->{name} || $_->textContent }
	-> foreach { say }