autocmd BufNewFile,BufRead *.p? map :Perldoc +++++++