This is a perl script to filter the potential artefact polyA reads from a BAM file. Samtools must be installed; Most of the criteria were hard coded at the beginning of the script and users have to edit these parameters in the script.