use strict;
use XML::Twig;

my $file = "1.xml";

my $twig = XML::Twig->new( 
twig_roots => {'list' => \&list},
pretty_print=> 'indented');

$twig->parsefile($file);


sub list
{
	my ($twig, $sec) = @_;
       $sec->print;
		
}

##</code><code>##

Input:
<?xml version="1.0"?>
<camelids>
 <section>
  <r>afasdfasdf</r>
  	<section>
  	<list>
  	<list-item>242354</list-item>
  	<list-item>gsdfg
  		<list>
  		<list-item>7989</list-item>
  		<list-item>97989</list-item>
  		</list>
  	</list-item>
  	</list>
   fasdfas
   </section>
  </section>
  
</camelids>