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