use strict;
my $contents = param("$a");

##</code><code>##

my @contents = split( /\n/, $contents );
$contents = join( "<br>", @contents );


##</code><code>##

$contents =~ s/\n/<br>/g;