Awesome! Thanks! That worked beautifully. I ended up using:

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