You can build the regex on runtime without eval():

my @names = qw(Jones Rogers Edwards Smith Jackson) ;
my $names_re = join("|", @names) ;

foreach my $name ($text=~/(\b(?:[A-Z](?:\.|[a-z]+)\s+)+(?:$names_re))/
+sg){
  print $name."\n";
}
[download]

Graciliano M. P.
"The creativity is the expression of the liberty".