$depth++ while /\{/g;
                        $depth-- while /\}/g;