perl script to subset a fastq file.