$message =~ s/[\r\n]+$//;

##</code><code>##

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