#!/usr/bin/perl
use 5.016;
use strict;
use warnings;
use XML::Twig;

{
    open (my $OFILE, '>:utf8', './bits.xml') or die "Could not open [./bits.xml]:\n$!\n$^E";
    
    my $t = XML::Twig->new(
        twig_roots => {
            'statement' => sub { push @_, $OFILE; &_statement; 1; },
        },
        twig_print_outside_roots => $OFILE,
        pretty_print => 'indented',
    );
    
    $t->parse(*DATA);
    
    close $OFILE;
}

sub _statement {
    my ($_twig, $stmt_element, $OFILE) = @_;
    
    my $acct = $stmt_element->find_nodes('primary/acct', 0)->trimmed_text();
    
    if ( $acct eq '903264' ) {
        $_twig->flush($OFILE);
    } else {
        $_twig->purge();
    }
    
    return;
}

__DATA__
<batch>
    <header>
        <foo>1</foo>
        <bar>2</bar>
        <baz>3</baz>
    </header>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im an apple!</bits>
    </statement>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im a carrot!</bits>
    </statement>
    <statement> <!-- I only want this statement -->
        <primary>
            <acct>903264</acct>
        </primary>
        <bits>Im a potato!</bits>
    </statement>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im a pear!</bits>
    </statement>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im a pickle!</bits>
    </statement>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im a banana!</bits>
    </statement>
    <statement>
        <primary>
            <acct>000000</acct>
        </primary>
        <bits>Im an eggplant!</bits>
    </statement>
    <trailer>
        <stuff>Oh god how did this get here i am not good with computer!</stuff>
    </trailer>
</batch>


##</code><code>##

<batch>
    <header>
        <foo>1</foo>
        <bar>2</bar>
        <baz>3</baz>
    </header>
    
    
    
  <statement>
    <!-- I only want this statement -->
    <primary>
      <acct>903264</acct>
    </primary>
    <bits>Im a potato!</bits>
  </statement>
    
    
    
    
    <trailer>
        <stuff>Oh god how did this get here i am not good with computer!</stuff>
    </trailer>
</batch>>

##</code><code>##

<batch>
    <header>
        <foo>1</foo>
        <bar>2</bar>
        <baz>3</baz>
    </header>
  <statement>
    <!-- I only want this statement -->
    <primary>
      <acct>903264</acct>
    </primary>
    <bits>Im a potato!</bits>
  </statement>
    <trailer>
        <stuff>Oh god how did this get here i am not good with computer!</stuff>
    </trailer>
</batch>