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

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