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