$$a =~ /\G(?:\s++|#.*+)*+\(/gc or croak "parenthesis expected"