#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;

my $xmlstr = <<EOF;
<top>
  <COMPLETE>
    <T>test</T>
    <L>light</L>
    <INFO>information</INFO>
  </COMPLETE>

   <COMPLETE>
     <T>test</T>
     <L>light</L>
     <INFO>informa</INFO>
  </COMPLETE>
</top>
EOF

my $twig = XML::Twig->new(
    twig_roots => {INFO => 1},
    twig_print_outside_roots => 1,
);
$twig->parse($xmlstr);

__END__
<top>
  <COMPLETE>
    <T>test</T>
    <L>light</L>
    
  </COMPLETE>

   <COMPLETE>
     <T>test</T>
     <L>light</L>
     
  </COMPLETE>
</top>