perl -ne '@cols = split /\t/; print if $cols[1] == 0' mydat.txt