TF-Motif Mapping Perl Script