Have you seen Perl::Critic? It does things like this. You can make cleverness plugins for B::Lint too.