Hmm, you're looking for something faster than grep and you decided to write it in Perl? That doesn't make a lot of sense to me.

Here's an interesting article on trying to beat grep at its own game:

http://ridiculousfish.com/blog/archives/2006/05/30/old-age-and-treachery/

-sam