use strict;
use XML::Twig;

my $sel = 'title';
my $ign = 'title/title/title';
my $twig = XML::Twig->new(
ignore_elts => { "$ign" => 1},
twig_handlers => { "$sel" => \&title},
pretty_print => 'indented'
);

$twig->parsefile('1.xml');

$twig->print;

sub title
{
	my ($twig, $tit) = @_;
	
	$tit->set_gi('tit');
	
}

##</code><code>##

input:
<?xml version="1.0"?>
<!DOCTYPE stats SYSTEM "stats.dtd">
<stats>
<title id="1">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></title>
<title id="2">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></title>
<title id="3">
<name1>Raja m</name1><g>49</g>
	<title>
	testing the sub title in title
	</title>
	<title>
	this is pcdata in subtitle
		<title>
		second sub level
		</title>
	</title>
</title>
</stats>

##</code><code>##

output:
<?xml version="1.0"?>
<!DOCTYPE stats SYSTEM "stats.dtd">
<stats>
  <tit id="1">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></tit>
  <tit id="2">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></tit>
  <tit id="3">
    <name1>Raja m</name1>
    <g>49</g>
    <tit>
	testing the sub title in title
	</tit>
    <tit>
	this is pcdata in subtitle
		</tit>
  </tit>
</stats>

##</code><code>##

Expected output:
<?xml version="1.0"?>
<!DOCTYPE stats SYSTEM "stats.dtd">
<stats>
  <tit id="1">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></tit>
  <tit id="2">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></tit>
  <tit id="3">
    <name1>Raja m</name1>
    <g>49</g>
    <tit>
	testing the sub title in title
	</tit>
    <tit>
	this is pcdata in subtitle
        <title>
         second sub level
        </title>
   </tit>
  </tit>
</stats>