@0=@b='';s![[(](.+?)[])]|([^?])!@b=map{$c=$_;map$c.~$_,@{$'&p},map{split'ƒ'x/ƒ/}~$+}@b!egfor<>.$/;print@b