function! s:rowwise_dd() range
    perl VIM::CSV::rowwise_dd
endfunction
nnoremap <buffer> <LocalLeader><Left>   :perl VIM::CSV::prev_col<CR>

##</code><code>##

sub VIM::DoCommand ($);
sub VIM::Eval ($);
sub VIM::Msg ($;$);

##</code><code>##

use Filter::Util::Call;
BEGIN {
    filter_add( sub {
        my $status = filter_read;
        return $status unless /^\s*:/;  
        s/"/\\"/g;
        s/:(.*)/VIM::DoCommand "$1";/;  
        return $status;
    })
}
...
    :w