#$nesting++ if 1+index '[{', $char;
#$nesting-- if 1+index ']}', $char;
$nesting++ if $char=~/[[{]/;
$nesting-- if $char=~/[\]}]/;  # not sure if I escaped this right