Inline::C needs to parse C and it contains Inline::C::ParseRecDescent and Inline::C::ParseRegExp. Maybe these two parsers already help you. Alternatively, there are parser generators for Perl as well, see Parse::Yapp and Parse::Eyapp for YACC variants.