$message =~ s/\r|\n//g;

##</code><code>##

$message =~ s/\r\n|\n\r//g;