system('perl K:\Workspace\free2bind\free_scan.pl -r -e "-q auuccuccacuag" haorules.fasta')