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

##</code><code>##

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