Help for this page
print grep / ^ ... (?:[^\t]*\t){4}\t{3}\d\t0\t\d ) /x, <DATA>;
print grep /^(?:[^,\t]*[,\t]){4}[,\t]{3}\d[,\t]0[,\t]\d/, <DATA>;