# untested
my @last_names{qw/Jones Rogers/} = ();

foreach my $name ($text=~/(\b(?:[A-Z](?:\.|[a-z]+)\s+)+(\w+))/sg) {
  next unless exists $last_names{$2};
  print $name
}