# XML::Smart
my @books = $sXML->{book}('@');

# XML::LibXML
my @books = $root->findnodes('book');