#!/usr/bin/perl -w #columns(75); $text->tabstop(0); $text->firstIndent(0); # Skip the first paragraph (should be the header) while (<>) { chomp; print "$_\n"; last unless length($_); } # Format everything else. while (<>) { chomp; if (length ($_) > 100) { print $text->format($_); } else { print "$_\n"; } } exit (0);