use XML::Simple;
use Data::Dumper;
my $data=qq(<Data><Name><Lname>xyz</Lname><Fname>abcd</Fname></Name><Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone><Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone><Name><Lname>UTV</Lname><Fname>EFGH</Fname></Name><Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone></Data>);

my $ref=XMLin($data);

print Dumper($ref);

which shows output
$VAR1 = {
          'Phone' => [
                     {
                       'Home' => '55656556',
                       'Mobile' => '123456789'
                     },
                     {
                       'Home' => '55656556',
                       'Mobile' => '123456789'
                     },
                     {
                       'Home' => '55656556',
                       'Mobile' => '123456789'
                     }
                   ],
          'Name' => [
                    {
                      'Lname' => 'xyz',
                      'Fname' => 'abcd'
                    },
                    {
                      'Lname' => 'UTV',
                      'Fname' => 'EFGH'
                    }
                  ]
        };

##</code><code>##

#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>