split_file.pl

gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;

my $file = 'test.txt';
my $split_line = 3;
my $cnt = 0;
my $file_cnt = 0;

open IN, $file or die $!;
while (<IN>){
    if ($cnt % $split_line == 0) {
        open OUT, "> file$file_cnt.txt" or die $!;
        print OUT;
        $file_cnt ++;
    } else {
        print OUT;
    }
    $cnt ++;
}
close IN;