Fetch field values from API output

rkrish has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I have an API output looks like :

    <?xml version="1.0" encoding="ISO-8859-1" ?> 
- <envelope>
- <body>
- <outputGetUsageSummary>
- <usgSumm rerateDone="5">
- <usageAccum accumId="269" accumCaptn="VD_DP_AR" inclUnits="9999999.0
+0" inclUnitsUsed="0.00" shared="false" pooled="false" prorated="false
+" realtimeSbscrpShared="false" inclUnitsRolledOver="0.00" maxRollover
+Units="0.00" inclUnitsToBeRolledOver="0.00" rolloverAvailableFlag="fa
+lse" prevCycleReleasedFlag="false" sbscrpUsedUnits="0.00">
  <prices svcPriceSeqNbr="00000RH2LS808H7" svcName="VD_DP_AR" captnTex
+t="Vm Deposit Free Airtime" inclUnits="9999999.00" inclUnitsUsed="0.0
+0" ntwrkUnitsIncl="599999940.00" ntwrkUnitsUsed="0.00" maxAvailNtwrkU
+nits="599999940.00" displayUnitsIncl="9999999.20" displayUnitsUsed="0
+.00" maxAvailDisplayUnits="9999999.20" ntwrkUnitId="1" displayUnitId=
+"3" /> 
  </usageAccum>
- <usageAccum accumId="270" accumCaptn="VD_IN_AR" inclUnits="9999999.0
+0" inclUnitsUsed="0.00" shared="false" pooled="false" prorated="false
+" realtimeSbscrpShared="false" inclUnitsRolledOver="0.00" maxRollover
+Units="0.00" inclUnitsToBeRolledOver="0.00" rolloverAvailableFlag="fa
+lse" prevCycleReleasedFlag="false" sbscrpUsedUnits="0.00">
  <prices svcPriceSeqNbr="00000RH2LT888H8" svcName="VD_IN_AR" captnTex
+t="Vm Deposit Free Airtime" inclUnits="9999999.00" inclUnitsUsed="0.0
+0" ntwrkUnitsIncl="599999940.00" ntwrkUnitsUsed="0.00" maxAvailNtwrkU
+nits="599999940.00" displayUnitsIncl="9999999.20" displayUnitsUsed="0
+.00" maxAvailDisplayUnits="9999999.20" ntwrkUnitId="1" displayUnitId=
+"3" /> 
  </usageAccum>
- <usageAccum accumId="1962" accumCaptn="DACC_AR:FREE:UNLIM FREE" incl
+Units="9999999.00" inclUnitsUsed="0.00" shared="false" pooled="false"
+ prorated="false" realtimeSbscrpShared="false" inclUnitsRolledOver="0
+.00" maxRolloverUnits="0.00" inclUnitsToBeRolledOver="0.00" rolloverA
+vailableFlag="false" prevCycleReleasedFlag="false" sbscrpUsedUnits="0
+.00">
  <prices svcPriceSeqNbr="8085" svcName="DACC_AR" captnText="Dir Assis
+t Call Completion Airtime" inclUnits="9999999.00" inclUnitsUsed="0.00
+" ntwrkUnitsIncl="599999940.00" ntwrkUnitsUsed="0.00" maxAvailNtwrkUn
+its="599999940.00" displayUnitsIncl="9999999.20" displayUnitsUsed="0.
+00" maxAvailDisplayUnits="9999999.20" ntwrkUnitId="1" displayUnitId="
+3" /> 
  </usageAccum>
  </usgSumm>
  </outputGetUsageSummary>
  </body>
  </envelope
[download]

I need to fetch the values of 'inclUnits',' inclUnitsUsed','shared' from the output for each usageAccum accumId ('269','270','1962')..I have these values stored in an array..Please help me how the other values I mentioned above can be fetched from API output with the accumId's I have.

Back to Seekers of Perl Wisdom