You don't even need regex for this, btw -

while (<DATA>) {
    push(@array, substr($_,0,index($_,' '))) if index($_,'Vet') == -1;
}
print join("\n",@array);

__DATA__
David    Veterinarian
Jackie  Orthopedist
Karen Veterinarian
[download]