perl -MB';$'F=shift -ane '$F[1]=~$F&&'print -- Vet TEST.txt