my $contents = param("$a");
$contents =~ s/(\n|\r)/<br>/g;
$contents =~ s/(<br>)+/<br>/g;