$comment =~ s/(\r\n|\n\r)/<BR>/g;
$comment =~ s/(\n|\r)/<BR>/g;