$paragraph =~ s/\n+/<BR>/g;
($paragraph) = $paragraph =~ /(.{1,2000})\s+/; 

##</code><code>##

($paragraph) = $paragraph =~ /(.{1,2000}[.!?])/;