Select Code to Download

$message =~ /^(\w+)/
    or die "Message '$message' doesn't start with an identifier.\n";
my $message_id = $1;