#example 1
$content =~ s/(.{1,$width}) /$1<BR>/g;
print $content;