Though this isn't a perl solution, you might want to look into procmail. It allows you to do nearly all things with ingoing and outgoing mail. (The typical ingoing method is providing a pipe in .forward.)