#!perl -pl
$x=1;$x+=2*s/\(\)//while/^\(/;$_=$x