#! /usr/bin/perl -w
use strict;
 
my ($f, $x, $b_id);
my @batch_id = ( # Put all batch_ids in this array
12345678519,
123456,
);
 
open XML, "< input";
for (<XML>) {
    if (/\[<\?xml/../^\&#93;/) {
        if (/\[<\?xml/) {
            $f=0;
            s/.*?(\[<\?xml.*)/$1/;
            $x=$_;
        }
        elsif (/<BATCH_ID>[0-9]+?<\/BATCH_ID>/) {
            for $b_id (@batch_id) {
                if (/<BATCH_ID>$b_id<\/BATCH_ID>/) { $f=1; print $x; print }
            }
        }
        elsif (!/\&#91;<\?xml/ && !/<BATCH_ID>12345678519<\/BATCH_ID>/ && $f==1) { print }
        elsif ($f==0) { next }
    }
}