David    Veterinarian
Jackie  Orthopedist
Karen Veterinarian
##</code><code>##

while (<>) {
    push(@array, $&) if m/^\w+(?!\s+Vet)/;
}

print("@array\n");