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