function ConvertChat()
    :silent! execute '%g/^$/d'
    :silent! execute '%s#^\(\s\+\)\<\(HARRY ANDERSON\):\(.*\)#\1<p class="harry">\2:\3</p>#'
    :silent! execute '%s#^\(\s\+\)\<\(.\{-}\):\(.*\)#\1<p class="\L\2\E">\2:\3</p>#'
endfunction