note
bastard
This should also work:
<CODE>
#example 1
$content =~ s/(.{1,$width}) /$1<BR>/g;
print $content;
</CODE>
or
<CODE>
#example 2
$content =~ s/(.{1,$width}) |([^ ]{$width})/$1$2<BR>/g;
print $content;
</CODE>
The $width represents the largest number of characters
each line should have.<BR>
The first example does not break single words longer
than the variable $width specifies. The second will.
100118
100140