perl $30$byteを提出。

print~~s/\*\)//g,$",y/*//for<>

左向き*)を数えつつ除去し、残る*を数えれば右向きの数になる。 s///gはlistを返すので~~は整数化、y///は整数を返すのでそのまま。

鑑賞

tailsさんがperl $29$byteを出してた: http://yukicoder.me/submissions/159554

... for ~ <>として各文字反転させることで\によるescapingを不要にしている。