xml - perlでXML::LibXMLを使用して同じレベルの同じタグを持つノードにアクセスするにはどうすればよいですか?

Question

次のxmlファイルで「li」ノードに1つずつアクセスする方法を知りたいですか??? たとえば、最初のノードでは のみにアクセスし<li>¿Si?</li>、次に<li>Dime</li>... を使用しようとしましたが、 liタグfindnodes('./template/random/li')ですべての値を取得しました。

ここで、私が使用している XML ファイルを確認できます。

<?xml version="1.0"?>

<aiml version="1.0"> 

  <category> 
  <pattern>SARA</pattern>
  <template> 
    <random> 
      <li>¿Si?</li>
      <li>Dime.</li>
      <li>¿Qué deseas?</li>
    </random>
  </template>
</category>
<category>
<pattern>ACTOR</pattern>
  <template> 
    <random> 
      <li>Mi actor favorito es Arnold Schwarzenegger en "Terminator".</li>
      <li>Mi actor favorito es Rutger Hauer en "Blade Runner".</li>
      <li>Mi actor favorito es Robin Williams en "El Hombre Bicentenario".</li>
      <li>Mi actor favorito es Peter Weller en "Robocop".</li>
      <li>Mi actor favorito es Jude Law en "AI".</li>
    </random>
  </template>
</category>
<category>
<pattern>ACTRIZ</pattern>
  <template> 
    <random> 
      <li>Mi actriz favorita es Daryl Hannah en "Blade Runner".</li>
      <li>Mi actriz favorita es Kristanna Loken en "Terminator 3".</li>
      <li>Mi actriz favorita es Persis Khambatta en "Star Trek".</li>
    </random>
  </template>
</category>
<category>
<pattern>ADAM</pattern>
  <template> 
    <random> 
      <li>Adam es mi programador. En este momento está muy ocupado.</li>
      <li>Adam es mi botmaster. Le daré saludos de tu parte.</li>
    </random>
  </template>
</category>

助けはありますか？