How to remove bacon 3.0 hair?

I have a script that removes hair, it removes every hair and hat apart from 3.0 bacon hair

game.Players.PlayerAdded:Connect(function(plr)
 plr.CharacterAppearanceLoaded:Connect(function(char)
  for i,v in ipairs (char:GetChildren()) do
   if v:IsA('Accoutrement') then
    v:Destroy()
   end
  end
 end)
end)

Try this script (script, not local script)

script.Parent["Pal Hair"]:Destroy()

Put the script on game > StarterPlayer > StarterCharacterScripts

Placing the script on StarterCharacterScripts will make it so if there is a Bacon hair on the player character, it removes it, otherwise if there isn't a Bacon hair, the script won't work, however this means the player already didn't had Bacon hair.

Tip: Anything on StarterCharacterScripts will be added to the player on Workspace.

Try this: (MAKE SURE TO DEFINE THE "player" VARIABLE!)

if player.Character:FindFirstChild("Pal Hair") then
if player.Character["Pal Hair"]:IsA("Accessory") then
player.Character["Pal Hair"]:Destroy()
end
end