#!/usr/bin/perl -w
use strict;
use constant LPP => 63; # for enscript

my @chunk = ();
my $line = 0;

while (<>) {
    if (/^\s*$/) { &printchunk; ++$line; print; }
    else { push @chunk,$_; }
}
&printchunk;

sub printchunk {
    if (@chunk + $line >= LPP) {
        print "\n" while $line++ < LPP;
        $line = 0;
    }
    $line += @chunk; print @chunk; @chunk = ();
}