my $message_id = do {
    local $_ = $message;
    (split)[0];
};