use CGI;
my $html_break = CGI->br;

$message =~ s/\Q\r\n\E/$html_break/g;