Select Code to Download

my $textarea_content = $q->param('message');

...
$textarea_content =~ s/\r?\n/<br>\n/g;

print $textarea_content;