Help for this page

Select Code to Download


  1. or download this
    $paragraph =~ s/([^\n]{0,70})(?:\b\s*|\n)/$1\n/gi;
  2. or download this
    my $max_width = 40;
$paragraph =~ s/([^\n]{0,$max_width})(?:\b\s*|\n)/$1\n/gio;
  3. or download this
    $paragraph =~ s/([^\n]{50,70})(?:\b\s*|\n)/$1\n/gi;
while ( $paragraph =~ m/([^\n]{71})/ )
{
   $paragraph =~ s/([^\n]{70})([^\n])/$1\n$2/g;
}