use strict;
use warnings;
no warnings 'uninitialized';

use XML::Rules;

my $parser = XML::Rules->new(
	rules => {
		_default => 'raw',
		'^start_element' => sub {
			my ($tag,$attr,$context,$parents,$parser) = @_;
			$parser->{pad}{found_userID} = 0;
			return 1
		},
		userID => sub {
			my ($tag,$attr,$context,$parents,$parser) = @_;
			$parser->{pad}{found_userID} = 1;
			return [$tag => $attr]
		},
		start_element => sub {
			my ($tag,$attr,$context,$parents,$parser) = @_;

			print { $parser->{parameters}[ $parser->{pad}{found_userID} ] } $parser->ToXML( $tag, $attr), "\n";
		}
	}
);

open my $FH1, '>', 'c:\temp\test1.xml';
open my $FH2, '>', 'c:\temp\test2.xml';
print $FH1 "<root>\n";
print $FH2 "<root>\n";
$parser->parse( \*DATA, [$FH1, $FH2]);
print $FH1 "</root>\n";
print $FH2 "</root>\n";


__DATA__
<root>

<!-- First Element -->
<start_element>

<header>
<element_num>1</element_num>
</header>

<contents>
<child>MyChild</child>
</contents>

</start_element>

<!-- Second Element -->
<start_element>

<header>
<element_num>2</element_num>
</header>

<contents>
<child>MyChild</child>
<userID>MyUser</userID>
</contents>

</start_element>

<!-- Third Element -->
<start_element>

<header>
<element_num>3</element_num>
</header>

<contents>
<child>MyChild</child>
</contents>

</start_element>

</root>