Something like this might work:

# replace newlines in message with brs
my $msg = $input{'txtMsg'};
$msg =~ s|\r||g;
$msg =~ s|\n|<br/>|g;

# add Event to file
    print DAT "$NewID|$now_string|$input{'txtGuestName'}|$msg\n";
[download]