Help for this page
$paragraph =~ s/\n+/<BR>/g; ($paragraph) = $paragraph =~ /(.{1,2000})\s+/;
($paragraph) = $paragraph =~ /(.{1,2000}[.!?])/;