map q :e #[Ctrl]-V[Enter]
map v :!perl -wc %[Ctrl]-V[Enter]
map V :!perl %[Ctrl]-V[Enter]