print grep /^(?:[^,\t]*[,\t]){4}[,\t]{3}\d[,\t]0[,\t]\d/, <DATA>;