List with double quoted items in the list

I think i solved it…. 

sampleInput =
  """
policy {
  shared;
  panorama {
    address-group {
      THE-GRAPE-Subnets {
        static [ "Green Grapes Are Good" RedGrapes BlackGrapes "Wine Grapes" PurpleGrapes];
      tag GRAPES;
      description "This is a list of Grapes";
      }
""";

pattern01 =
  ```
policy
  panorama
    address-group
      THE-GRAPE-Subnets
        static "[ {object:(string*)}
```;

stringdelimeter = `{string*}`;

getlistitems(text) =
  max(foreach x in [1]
      let listitem = patternMatch(text, stringdelimeter)
      select listitem);

getlists =
  foreach x in [1]
  let config = parseConfigBlocks(OS.PAN_OS, sampleInput)
  foreach match in blockMatches(config, pattern01)
  // clean up the match...
  let joined = replace(replace(join(" ", match.data.object), "]", ""), " ", "_")
  // replace quotes with a carriage return, and set first character of line to a minus
  let items = replaceMatches(joined, "\"", "\n-")
  // replace all spaces with underscore
  let items = replace(items, "_", " ")
  // remove any leading spaces and minus signs for those lines that are text, lines that are not text, will have leading minus
  let items = replace(items, "- ", "")
  // now a list of lines, so process as if a config
  let config = parseConfigBlocks(OS.UNKNOWN, items)
  // process each line
  foreach line in config
  // ignore those with only the minus sign
  where line.text != "-"
  // set the linetype for the given line
  let linetype = if prefix(line.text, 1) == "-" then "text" else "list"
  // for lines that start with a minus, then just remove the minus and place in a list
  // for lines that don't start with a minus, then we need to grab the list items
  let listitems = if linetype == "text"
                  then [suffix(line.text, length(line.text) - 1)]
                  else getlistitems(line.text)
  select listitems;

// main function
foreach x in [1]
// get all the list of lists
let listoflists = getlists()
// process each list
foreach list in listoflists
// we need to pick each listitem
foreach listitem in list
select { listitem }

It may be a bit contrived in how i did this.

The technique was to clean up the text first, split into multiple lines and encode what the line was, either a single item or multiple.

Results below….