my $message_id = $1 if $message =~ m/([\w\d]+)\s+.*/;