Modifications in Perl script and refactoring of two params in motif tool