C:\>perl -naF/\t/ -e "print qq($F[4]\n) if /zaps/" infile>outfile