#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;


my $twig = XML::Twig->new(
    start_tag_handlers => {_all_ => \&convert,},
    pretty_print       => 'indented_a'
    );
$twig->parse(*DATA);
$twig->print();


sub convert {
    my ($twig, $elt) = @_;

    $elt->set_tag('menuitem');
}


__DATA__
<lvl_1 path="smallbusiness"
    en_title="Small Business" fr_title="Petites Entreprises"
    hideFromMenu="false" hideBreadcrumbs="false"
>
    <lvl_2 path="products"
        en_title="Products and Services" fr_title="Produits et Services"
        hideFromMenu="false" hideBreadcrumbs="false"
    />
</lvl_1>

##</code><code>##

<menuitem
    en_title="Small Business"
    fr_title="Petites Entreprises"
    hideBreadcrumbs="false"
    hideFromMenu="false"
    path="smallbusiness">
  <menuitem
      en_title="Products and Services"
      fr_title="Produits et Services"
      hideBreadcrumbs="false"
      hideFromMenu="false"
      path="products"
  />
</menuitem>