Select Code to Download

    foreach $motiffile(@motiffile){
        if($motiffile =~ /(^[A|S]\d+\s+|^[A|S]\d+b\s+)([A-Z]+)(\s+.*)$
...
           }    
           return $regexp;
         ...

push @regexp, $regexp

return join '|', @regexp;