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