($message_id = $message)=~s/\s.*//;