adam
================================================================
$chunk_size=10000; # (or whatever)
$chunk_num=1;
open OUT, "> outfilename.$chunk_num";
while (<>){
print OUT;
# or something fancy would get exactly the right number - this
# program doesn't split lines so might have up to a dozen
# extra words in a chunk
$count += &words_in_line($_);
# where words_in_line is a subroutine returning - you guessed
# it! - the number of words in the line.
# in the default case of no markup, you could simply do
# $count += split
if ($count >= $chunk_size){
close OUT;
$chunk_num++;
open OUT, "> outfilename.$chunk_num";
$count=0;
}
}