modify perl-mode