my $initial = qr{ \b [[:upper:]] [.] \s*      }xms;
my $name    = qr{ \b [[:upper:]] [[:lower:]]* }xms;
my $initialed_name = qr{ $initial+ (?= \s+ $name) }xms;