Select Code to Download

My environment is:
Solaris 2.6
...
    <Level2a>Text at Level2a</Level2a>
    <Level2b>Text at Level2b</Level2b>
</methodCall>

my $parser = new XML::DOM::Parser;
$doc = $parser->parse( $buf ) or die "Unable to parse document";
...
        scanner( $nde );
    }
}

0TEXTLevel1 Text
        1ELEMENT Level2a
2TEXT
        3ELEMENT Level2b