Could use something like File::Comments to strip away the comments, leaving you with a very simple regex to perform.

Could even pass through Filter::cpp or cpp, but that might be overkill.