use strict;
use XML::Rules;

open MODULE, '>', 'splitXML-test-Module.xml';
print MODULE "<Root>\n <Top>\n";

open OTHER, '>', 'splitXML-test-Other.xml';
print OTHER "<Root>\n <Top>\n";

my $parser = XML::Rules->new(rules => {
    Root => '',
    Top => '',
    Module => [
        '/Root/Top' => sub {
            my ($tag_name, $attrs, $context, $parent_data, $parser) = @_;
            print MODULE '  ' . $parser->ToXML($tag_name, $attrs) . "\n";
            return;
        },
        'raw'
    ],
    _default => [
        '/Root/Top' => sub {
            my ($tag_name, $attrs, $context, $parent_data, $parser) = @_;
            print OTHER '  ' . $parser->ToXML($tag_name, $attrs) . "\n";
            return;
        },
        'raw'
    ]
});

$parser->parse(\*DATA);

print MODULE " </Top>\n</Root>\n";
print OTHER " </Top>\n</Root>\n";

__DATA__
<Root>
 <Top>
  <Module name="ALU">
   <input name="po_ctrl"/>
   <bidirection name="add"/>
  </Module>
  <Module name="Po_ctrl">
   <input name="ctrl"/>
   <output name="ctrlbus"/>
   <bidirection name="add"/>
  </Module>
  <input name="add"/>
  <input name="clk"/>
  <input name="da_in"/>
  <output name="da_out"/>
  <bidirection name="ctrl"/>
</Top>
</Root>