Mit Perl XML parsen

[kmi]

Hallo!

Hab folgendes sehr dringendes Problem.
Ich benötige einen Parser für Perl der mir folgenden XML-Code verarbeitet.

<XXXX version="8.0">
<OPEN_ITEMS DATE="11.04.2001" COST="72.72" TAX="11.41">
<OPEN_ITEM DESC="XXX" DATE1="11.04.2001" DATE2="22.04.2001" AMOUNT="72.72" TAX_EURO="11.41" />
<OPEN_ITEM DESC="YYY" DATE1="12.05.2001" DATE2="12.05.2001" AMOUNT="22.71" TAX_EURO="5.21" />
</OPEN_ITEMS>
<PAYMENT>YY</PAYMENT>
<BANK></BANK>
<SALDO>0</SALDO>
</XXXX>
<XXXX version="8.0">
<OPEN_ITEMS DATE="11.04.2001" COST="72.72" TAX="11.41">
<OPEN_ITEM DESC="XXX" DATE1="11.04.2001" DATE2="22.04.2001" AMOUNT="72.72" TAX_EURO="11.41" />
<OPEN_ITEM DESC="YYY" DATE1="12.05.2001" DATE2="12.05.2001" AMOUNT="22.71" TAX_EURO="5.21" />
</OPEN_ITEMS>
<PAYMENT>YY</PAYMENT>
<BANK></BANK>
<SALDO>0</SALDO>
</XXXX>



Das Ergebnis sollte ein TXT-File sein, in dem jedes Feld (Tag) eine eigene Zeile hat.
z.B.

<XXXX>
<version>8.0
<OPEN_ITEMS>
<DATE>11.04.2001
<COST>72.72
<TAX>11.41
<OPEN_ITEM>
<DESC>XXX
<DATE1>11.04.2001
<DATE2>22.04.2001
<AMOUNT>72.72
<TAX_EURO>11.41
<OPEN_ITEM>
<DESC>YYY
<DATE1>12.05.2001
<DATE2>12.05.2001
<AMOUNT>22.71
<TAX_EURO>5.21
<PAYMENT>YY
<BANK>
<SALDO>0
<XXXX>
<version>8.0
<OPEN_ITEMS>
<DATE>11.04.2001
<COST>72.72
<TAX>11.41
<OPEN_ITEM>
<DESC>XXX
<DATE1>11.04.2001
<DATE2>22.04.2001
<AMOUNT>72.72
<TAX_EURO>11.41
<OPEN_ITEM>
<DESC>YYY
<DATE1>12.05.2001
<DATE2>12.05.2001
<AMOUNT>22.71
<TAX_EURO>5.21
<PAYMENT>YY
<BANK>
<SALDO>0


Wie löse ich diesen Fall???

Vielen Dank im Voraus,
kmi

[Byteandi]

zum Beispiel mit

use XML::Simple


Byteandi