#!/usr/bin/perl

open (base, "<base.txt") || die "Error";

while (<base>) {
push @mas, $_;
if ( @mas == 30000 ) {
open (file, ">part ".$count++." .txt") || die "Error";
print file @mas;
close file;
@mas=();
}
}