On Thu, 2003-04-03 at 16:10, [EMAIL PROTECTED] wrote: > Golfish, obvious or downright cunning answers all welcome: > > I'd like to pipe text in (either with just linebreaks, or dos-style > carriage return + linebreak's) and get out word-wrapped lines of not > more than 80 characters prefixed with "> ".
Text::Format? http://search.cpan.org/author/GABOR/Text-Format0.52/lib/Text/Format.pm -- s&&@[EMAIL PROTECTED]@##@@#&&&y&^#@&712&&&($;='z')&&s&(..)&0$1&g&&s&$&0&&&s&(.)([^01])& $1x$2&xge&&($.='a')&&s&$&d4823604df80d7e51d7018b9&&&(@_=$...$;)&&undef$.;do {s&(.)(.*)(.)&$..=$1.$3,$2&e}while(length);s&&$.&;$*=0;undef$.;$..=($_?$_[( $*+=$_)[EMAIL PROTECTED]:$")foreach(map{hex}m&(..)&g);s&.*&$.$/&&&s&(\b.)&\U$1&go&&print