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";