Select Code to Download

use XML::Simple;
use Data::Dumper;
...
                    }
                  ]
        };

#on above $data i can split up the above string with each
#Name tag followed by Phone tags associated with this
...
#---------- Output -------------
<Name><Lname>xyz</Lname><Fname>abcd</Fname></Name><Phone><Mobile>12345
+6789</Mobile><Home>55656556</Home></Phone>
<Name><Lname>UTV</Lname><Fname>EFGH</Fname></Name><Phone><Mobile>12345
+6789</Mobile><Home>55656556</Home></Phone>