while (1) {
    my $idxSummary = index($string, "SUMMARY", $offset);
    my $result = "";
    my $idxDescription = index ($string, "DESCRIPTION", $offset);
    my $result2= "";
    print "idxSum:$idxSummary, idxDesc:$idxDescriptioni, offs:$offset\n";

##</code><code>##

idxSum:47, idxDesc: 62, offs:0
idxSum:122, idxDesc: 143, offs:73
idxSum:-1, idxDesc:-1, offs:10
idxSum:-1, idxDesc:-1, offs:10
.....