$message =~ tr/[\^@]//;