note
choroba
If the country code is always all uppercase, you can use the following simple regex:<c>
#!/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";
}
}</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1025026
1025026