Perl deserialize XML
I have XML file (output of some application) like this: <data> <call function="get_user_data"> <output> <integer name="my_id" value="-31" /> <string name="login" value="root" /> <integer name="ip_list" value="2" /> <array name="i"> <item> <ip_address name="user_ip" value="0.0.0.0" /> <ip_address name="user_mask" value="0.0.0.0"/> </item> <item> <ip_address name="user_ip" value="94.230.160.230" /> <ip_address name="user_mask" value="255.255.255.0"/> </item> </array> <integer name="modules" value="2" /> <array name="i"> <item> <string name="module_name" value="core" /> </item> <item> <string