http://www.perlmonks.org?node_id=1025028


in reply to Perl Regex Help!

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";

[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Replies are listed 'Best First'.
Re^2: Perl Regex Help!
by Anonymous Monk on Mar 23, 2013 at 12:37 UTC
    Thanks for your time and help...
[reply]

In Section Seekers of Perl Wisdom