$term=~s/(\d+)@($RE{balanced}{-parens=>'[]'})/rpt($1,$2)/eg;