nnoremap _c :w:!perl -wc %