This is a Perl script to analyse the occurrence of a predefined set of motifs around the polyA sites.