You may also consider splitting your text into separate sentences rather than lines. I believe this should make even more sense if you display an article across multiple pages. This way, you won't end up splitting a sentence in the middle etc.

The module that would let you do this is Lingua::EN::Sentence. I have already used the module in a few applications of my own to great success. For example, to spilt a piece of text in chunks of 45 sentences each, you could do the following:

use strict; # DO THIS! (by the way, you missed that one..)
use warnings; # haha and that too..

use Lingua::EN::Sentence;

my $page_sentence_count = 45; # 45 sentences per page!

my $sentences=get_sentences($text);    ## Get the sentences.
for (my $scount = 0; $scount < scalar @$sentences; $scount++) {
  unless ($scount % $page_sentence_count) {
    print "Next page!\n";
    # do whatever you want here (say, open next file etc)
  }
  print $sentences->[$scount] . "\n";
}
[download]

Disclaimer: code not tested (couldn't test it well on this box)

UPDATE: In reply to Re:Re:Posting Program
Ahh, for that, just use the set_EOS() method of the module to specify a new 'end-of-sentence' string.

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}
[download]