#!/usr/bin/perl
# break70.pl - Don Yang (uguu.org)
#
# Insert newline every 70 characters.
#
# 09/03/04


use strict;
my ($break_limit, $i, $t);
local (*INFILE);
local (*OUTFILE);

$break_limit = 70;


open INFILE, (($#ARGV > -1) ? "< $ARGV[0]" : "<&STDIN") or die $!;
open OUTFILE, (($#ARGV > 0) ? "> $ARGV[1]" : ">&STDOUT") or die $!;

$t = '';
while( $i = <INFILE> )
{
   for($t .= $i; length ($t) > $break_limit; $t = substr $t, $break_limit)
   {
      print OUTFILE ((substr $t, 0, $break_limit), "\n");
   }
}
print OUTFILE $t, "\n";

close INFILE;
close OUTFILE;