Help for this page

Select Code to Download


  1. or download this
    perl -ple"BEGIN{ $/ = \80 }" theBigFile > theNewFile
  2. or download this
    perl -e"BEGIN{$/=\80}" 
-nle"$x.=$_; print $1 while length($x)>80 and $x=~s[(.{1,80},)(?!,)][]
+"
 theBigFile > theNewFile