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

my @chunk;
my $line = 0;

$/ = '';

while ( <> ) {
    if ( $line + y/\n// >= LPP ) {
        print "\n" x ( LPP - $line );
        $line = 0;
        }
    print;
    $line += y/\n//;
    }