Select Code to Download

<IRETURNVALUE>
<INSTANCE CLASSNAME="junk"><PROPERTY NAME="ID"><DISPLAY TYPE="string">
+A0</DISPLAY><VALUE TYPE="string">a0</VALUE></PROPERTY><PROPERTY NAME=
+"state"><DISPLAY TYPE="string">Active</DISPLAY><VALUE TYPE="string">a
+ctive</VALUE></PROPERTY>...</INSTANCE>
<INSTANCE CLASSNAME="junk"><PROPERTY NAME="ID"><DISPLAY TYPE="string">
+A1</DISPLAY><VALUE TYPE="string">a1</VALUE></PROPERTY><PROPERTY NAME=
+"state"><DISPLAY TYPE="string">Active</DISPLAY><VALUE TYPE="string">a
+ctive</VALUE></PROPERTY>...</INSTANCE>
</IRETURNVALUE>

#!/usr/bin/perl -w

...

my $xr = XML::Rules->new( rules => \@rules, stripspaces => 2 );
$xr->parse(<DATA>);

#!/usr/bin/perl -w
use strict;
...
$xr->parsefile($File);

print Dumper(\%data);