#!perl -p
s%[^[]*(?=])%join",",$&=~/./g%e;y/()|[]/{},{}/;s%({[^}]*}|.)\?%{,$+}%g;$_=join$/,glob