<>=~s#\(#$_=$';$%+=/\^.*?\^.*?\*/&&$'=~y/)//;$\+=/\*.*?\^.*?\^/&&$'=~y/)//#ger;print"$% "