CharCount in Statusline

function! CharCount()
  redir => l:gcount
  silent exe "normal! g\<c-g>"
  redir END
  let l:type = matchstr(l:gcount, '\(Char\|Byte\)')
  return substitute(l:gcount, '.*' . l:type . '\s*\(\d\+\)\s*of\s*\(\d\+\).*', 'Char \1 of \2', '')
endfunction
set statusline=%f%m%r%h%w\ [%n:%{&ff}/%Y]%=[0x\%04.4B][%03v][%p%%\ line\ %l\ of\ %L,\ %{CharCount()}]