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

##</code><code>##

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