Best way to clear a characters appearance (On Enter and On Respawn)?

I tried doing this but it doesn't seem to fire (ever). Thanks.

game.Players.PlayerAdded:connect(function(player)
    player.CharacterAdded:connect(function(character)
        repeat wait() until character

        for i,v in pairs(character:GetChildren()) do
            if v:IsA("Shirt") 
                or v:IsA("Hat") 
                or v:IsA("ShirtGraphic")
                or v:IsA("Pants")
                then
                v:Destroy()
            end
        end
    end)
end)