Have a look at Mail::Audit "Library for creating easy mail filters" while you're at it. There's also an article on the subject on perl.com.