in reply to Re^2: RegExp, grabbing first name
in thread RegExp, grabbing first name

It doesn't work:
my $string = "BULLOCK MICHAEL A";
$string = ($string =~ m/^[A-Z, ]+([A-Z]{3,}).*?$/) ? $1 : '';
print AEL;

[download]

In Section Seekers of Perl Wisdom