There was a great thread on CLPM where Abigail posted some super sieve code.

http://groups.google.com/groups?q=abigail+sieve+group:comp.lang.perl.misc+group:comp.lang.perl.misc&hl=en&scoring=d