#!/usr/bin/perl -w # Wrap long lines only. use Text::Format; use strict; my $text = new Text::Format; $text->columns(75); $text->tabstop(0); $text->firstIndent(0); while (<>) { chomp; if (length ($_) > 80) { print $text->format($_); } else { print "$_\n"; } } exit (0);