$_="{".<>."}"; do{$m=$n=1;do{$m<$n?$m=$n:$n++ }while/([^{}]{$n})([^{}]{$m})/; $m<$n?$n--:$m--} while s/([^{}]{$n})([^{}]{$m})/{$1}{$2}/; print