in reply to regex clarification
You can also use
push(@array, $1) if (/(^\w+)/ && $' !~ /\s+Vet/) [download]