#!/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=();
    }
}