Help for this page
if ($targetseq=~ /.*$probe.*/) { $start = index($targetseq, $probe); push(@matchregion,$start); }
$start = index($targetseq, $probe); push(@matchregion, $start) unless $start == -1;