$comment = (join "\n<BR>", grep {!/^\s+$/} split/[\n\r]+/, $comment);