This is a Perl script to analyze the occurrence a predefined set of motifs around the TSS sites.