use strict;
use warnings;

my $MAX_FILE_SIZE = 10_000_000_000;

my $num = 0;
my $next_outfile = sub {
    open my $OUT, '>', 'file_' . (++$num) or die $!;
    return $OUT;
}

my $OUTPUT;
my $curr_size;
my $process_chunk = sub {
    my $chunk = shift;
    if(not defined $curr_size 
        or $curr_size + length($chunk) > $MAX_FILE_SIZE) {
        $OUTPUT = $next_outfile->();
        $curr_size = 0;
    }
    $curr_size += length($chunk);
    print $OUTPUT $chunk;
};

my $chunk;
while(my $line = <INPUT>) {
    if($line =~ /^100/) {
        $process_chunk->($chunk);
        $chunk = '';
    }
    $chunk .= $line;
}