Help for this page
David Veterinarian Jackie Orthopedist Karen Veterinarian
while (<>) { push(@array, $&) if m/^\w+(?!\s+Vet)/; } print("@array\n");