#!perl
$/ = '';
$outname="po-out-01";
open(OUTPUT,">$outname");
while(<>) {
    $l += length($_);
    print OUTPUT $_,$/;
    if ($l > 4_000_000) {
	$outname++;
	print "next: $outname\n";
	open(OUTPUT,">$outname");
	$l = 0;
    }
}