#!/usr/bin/perl

my $cnt=0;
my $stat=0;
my $fname="stat";
my $fh;

while ($radek = <STDIN>) {
    if ($radek =~ /= STATISTICS/) {
        $cnt++;
        $stat=1;
        $fname="stat." . sprintf("%05d",$cnt);
        print STDERR "$fname\n";
        open($fh,">",$fname);
    } elsif ($radek =~ /= END/) {
        $stat=0;
        close($fh);
    } elsif ($stat eq 1) {
        if ($radek !~ /^Tags/) {
            print $fh $radek;
        }
    }
}