#!/usr/bin/perl
# This is a PERL script.
# It breaks long lines, before the first non-space character 
# after the first space character after the 69-th character.
# For files with really long lines: use more than once. 
# Input file name(s) in commandline.
# Output to standard output.
# Use output redirection.
# The number 69 may not always give nice output: 
# modify if you like.
while ($_ = <ARGV>)
  {
      s/^(.{69,}?\s)(\S)/$1\n$2/;
      print $_ ;
  }
# Excercise for students: Figure out this code.