nnoremap <silent><F5> :<C-u>up|RunPerl<CR>
    inoremap <silent><F5> <C-o>:up|RunPerl<CR>
    vnoremap <silent><F5> <Esc>:up|RunPerl<CR>gv