If the country code is always all uppercase, you can use the following simple regex:

#!/usr/bin/perl
use warnings;
use strict;

for ('UK-Storee Leaader',
     'US-Inventory Specialiist',
     'Verifiication Engiineer - Techniical',
     'CHN-Speciialist',
     'Software Engiineer - Telecom',
     'ESP-Busiiness Manager',
     'Software Engiineer - Productiiviity',
     'FRA-Busiiness Speciialist',
     'CAN-Busiiness Speciialist',
     'CHE-Inventory Specialiist',
     'HK-Iinventory Speciialiist',
     'ITA-Speciialist',
     'NLD-Busiiness Specialiist',
    ) {

    if (/^([[:upper:]]+)-/) {
        print "Country code: $1 in $_.\n";
    } else {
        print "No country code in $_.\n";
    }
}
[download]