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