c:\test>perl -sane"print if $F[ 1 ] =~ /$T/" -- -T=vet test.txt
b vet c
f vet g