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