This might not be what you're looking for, but could help you do something similar - the benefit of this is that it's extremely quick and easy. While I like Perl's regex a lot, for this kind of thing I usually use a unix command like:

For which I have an alias in my .cshrc:

The syntax is "scour thingtosearchfor directorytolookin".

To search every file in a directory (recursively) for a particular grep argument. Comes in handy sometimes. With the current options it just outputs the filenames, but you could easily tweak that.