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