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