push(@array, $1) if (/(^\w+)/ && $' !~ /\s+Vet/)