my $comments =~ s/\\n/\<\.br\>\\n/;