#on above $data i can split up the above string with each
#Name tag followed by Phone tags associated with this
my @namephn=map{m/<Name>.*?<\/Phone>/g } $data;
print join "\n",@namephn; 
#---------- Output -------------
<Name><Lname>xyz</Lname><Fname>abcd</Fname></Name><Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone>
<Name><Lname>UTV</Lname><Fname>EFGH</Fname></Name><Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone>