int foo(int bar, char ** baz) { ... } #### (\w+)\s*$RE{balanced}{-parens=>'()'}[^{]*$RE{balanced}{-parens=>'{}'} #### my $c = new C::Scan 'filename' => $filename; my $arrayref = $c->fdecls;