#!/usr/local/bin/perl -w

use strict;
use XML::Twig;

my $xml_twig = XML::Twig->new(
    pretty_print => 'indented',
    NoLWP => 1,
    discard_spaces => 1,
);

$xml_twig->parse ( \*DATA ) || die "\nError parsing data $@\n";

foreach my $element ( $xml_twig->get_xpath("/*/*") ) {

        $xml_twig->set_root($element);

        print "\n\nName : " . $element->name . "\n";

        $xml_twig->print;

        print "\n";

}

__DATA__
<myconfig_data>
        <level1>
                <tag>hello1</tag>
        </level1>
        <level2>
                <tag>hello2</tag>
        </level2>
        <level3>
                <tag>hello3</tag>
        </level3>
</myconfig_data>

##</code><code>##

Name : level1

  <level1>
    <tag>hello1</tag>
  </level1>


Name : level2

  <level2>
    <tag>hello2</tag>
  </level2>


Name : level3

  <level3>
    <tag>hello3</tag>
  </level3>

##</code><code>##

Name : level1

<myconfig_data>
  <level1>
    <tag>hello1</tag>
  </level1>
</myconfig_data>

...etc