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