# XML::Smart
print $sXML->{book}[3]{title};

# XML::LibXML
print $root->find('book[4]/title');

##</code><code>##

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

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