Though I have no connection with them, I spent a little time optimizing Perlfect Search. It seems to do its job pretty well (or did, in the version I was playing with). As far as design, well... it seems to be OK if a bit naive about various Perl idioms.