Re: Perl Regex Help!

[2teez]

You can do this, using the OP data:

use warnings;
use strict;


while(<DATA>){
  chomp;
  if(/(\w{2,3})-/){
     print $1,$/;
  }
}


__DATA__
$name = "UK-Storee Leaader"; 
$name = "US-Inventory Specialiist"; 
$name = "Verifiication Engiineer - Techniical"; 
$name = "CHN-Speciialist"; 
$name = "Software Engiineer - Telecom"; 
$name = "ESP-Busiiness Manager"; 
$name = "Software Engiineer - Productiiviity"; 
$name = "FRA-Busiiness Speciialist"; 
$name = "CAN-Busiiness Speciialist"; 
$name = "CHE-Inventory Specialiist"; 
$name = "HK-Iinventory Speciialiist"; 
$name = "ITA-Speciialist"; 
$name = "NLD-Busiiness Specialiist";

[Anonymous Monk]

Thanks for your time and help...