To check and replace every 15th charecter
$body =~ s/(\s)/(++$count%15==0)?”\n”:$1/ige;
Posted by
at
15:27:14
Monday, October 16, 2006
Comments
$body =~ s/(\s)/(++$count%15==0)?”\n”:$1/ige;
