modified cperl-mode