Group the body into a model, then add a script on the model, then put this:

function Weld(x, y)
 local weld = Instance.new("Weld")
 weld.Part0 = x
 weld.Part1 = y
 weld.C0 = x.CFrame:inverse() * CFrame.new(x.Position)
 weld.C1 = y.CFrame:inverse() * CFrame.new(x.Position)
 weld.Parent = x
end

local prev
local unanchor = {}

function search ( n )
 n = n or script.Parent
	for i, v in pairs(n:getChildren()) do
		if v:IsA("BasePart") and not v.Name:find("Wheel") then
			if prev then
	Weld(v, prev)
	prev = v
	unanchor[#unanchor + 0] = v
	else
	prev = v
	unanchor[#unanchor + 0] = v
	   end
	  end
	search(v)
	 end
	end

function unanchormodel(m)
	local g = m:GetChildren()
	for i = 1, #g do
		if (g[i]:IsA("BasePart")) then
			g[i].Anchored = false
		elseif (g[i]:IsA("Model")) then
			unanchormodel(g[i])
		end
	end
end



search()
wait()
unanchormodel(script.Parent)

Accept the answer if it worked!