sub expand {
    doit split 
      / (?<!\\)\[ 
      (.*?)
      (?<!\\)\]/x, shift, -1;
}