Фильтр Тэгов, есть текст с тэгами. их надо убрать

msg = msg:gsub("<br>", "\n")

HTML = {["&lt;br&gt;"] = "\n", ["<br />"] = "\n", ["<br>"] = "\n", ["&quot;"] = "\"", ["&lt;"] = "<", ["&gt;"] = ">"}
function ReplaceTags(data)
    for i in pairs(HTML) do
        data=string.gsub(data,i,HTML[i]);    
    end
    return data
end

function ChatArrival(user,data)
    Core.GetUserAllData(user)
   data=string.sub(data,1,string.len(data)-1)
   if( string.sub(data, 1, 1) == "<" ) then
      s,e,cmd = string.find(data,"%b<>%s+(%S+)")
      cmd = string.sub(cmd, 2,string.len(cmd))
      if io.open(CDFolder.."/"..cmd..".txt",r) ~= nil then
         showtext(user, cmd)
         return true
      end
   end
end

function showtext(user, file)
local contents ="\r\n\r\n"
    for line in io.lines(CDFolder.."/"..file..".txt") do
        contents = contents..line.."\r\n"
    end
        --Core.SendToAll(user.sNick.."\r\n"..contents.."\r\n|")
        Core.SendPmToNick(user.sNick,Bot,contents)
end

ReplaceTags(contents)

function showtext(user, file)
local contents ="\r\n\r\n"
    for line in io.lines(CDFolder.."/"..file..".txt") do
        contents = ReplaceTags(contents..line.."\r\n")
    end
        Core.SendPmToNick(user.sNick,Bot,contents)
end

function showtext(user, file)
local contents ="\r\n\r\n"
    for line in io.lines(CDFolder.."/"..file..".txt") do
        contents = contents..line.."\r\n"
    end
    contents = ReplaceTags(contents)
    Core.SendPmToNick(user.sNick,Bot,contents)
end

function showtext(user, file)
  local contents, f ="\r\n\r\n", io.open(CDFolder.."/"..file..".txt")
  if f then
    contents = contents..f:read('*a')
  end
  contents = ReplaceTags(contents)
  Core.SendPmToNick(user.sNick,Bot,contents)
end