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

Same for list

#!perl
use strict;

my @list = ('BULLOCK JOE A','SMITH, A DOE');

for my $name (@list){
  my ($surname,$first) = $name =~ /(\w{3,})/g;
  print "$first : $name\n";
}

[download]
poj

In Section Seekers of Perl Wisdom