确定文件是否为fastq格式

Quinta11

perl新手求各位大神指导，谢谢！问题是这样的：
读取input.txt文件，如果不符合fastq格式，输出不符合格式要求的行数。

input.txt文件的部分数据为：


@ILLUMINA-B8E12E:8:1:1117:14185#0/1
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+ILLUMINA-B8E12E:8:1:1117:14185#0/1
__`f__caY[\_]Z_`]ZZZ_]]]Z_Z_ZZ__V\
@ILLUMINA-B8E12E:8:1:1161:14177#0/1
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+ILLUMINA-B8E12E:8:1:1161:14177#0/1
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
@ILLUMINA-B8E12E:8:1:1193:14175#0/1
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+ILLUMINA-B8E12E:8:1:1193:14175#0/1
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
@ILLUMINA-B8E12E:8:1:1227:14171#0/1
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+ILLUMINA-B8E12E:8:1:1227:14171#0/1
@BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
@ILLUMINA-B8E12E:8:1:1257:12697#0/1
AAAAAAAAAGAAAAAAGGAAAAGAGGAGGTAATG
+ILLUMINA-B8E12E:8:1:1257:12697#0/1
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB