#!/usr/bin/perl -w 
use strict;

my @data=();
my $file='c:\text.txt';

open my $fh,"<", $file or die "$file: $!";

while (my $line = <$fh>){
      push @data, $line;
      if (@data == 100) {
            print @data;
            @data = ();
      }
}

print @data;
[download]