(setq perl-p t)