if ($targetseq=~ /.*$probe.*/) {
          $start = index($targetseq, $probe);
          push(@matchregion,$start);
       }

##</code><code>##

       $start = index($targetseq, $probe);
       push(@matchregion, $start) unless $start == -1;