This is a perl script to pick up reads (in a fastq file) which has a poly nucleotide track, e.g. polyA. Different modes of search are implemented.