$rxNumberGrps = qr
   {(?x)
       \D*
       (\d+)
       (?=,|\))
       (?# append capture to $deCommafied)
       (?{$deCommafied .= $^N})
       (?:
          (??{$rxNumberGrps})
          |
          \)\z
       )
   };