There is "Perlfect", and a couple of other indexers, and they work pretty well. The biggest problem is they index too much, and if you change settings to limit indexed words to greater than a certain length, you miss alot of keywords. Some allow you to limit recursion, use regexes, etc.

Or check out alot of options at Freshmeat search

Or google for "Building a Vector Space Search Engine in Perl"