$comment =~ s/\n/&ltbr&gt/g;
$comment =~ s/&ltbr&gt&ltbr&gt/&ltbr&gt/g;