cperl-mode: set faces in the hook.