This is a perl script to define polyA clusters and assign to genes and report the cluster properties.