change perl mode
merge init.el