I am new to perl.

I have an input string like
Dave,30,"6,000","4,500","60,000","1,000"

I need to replace all the quotes and also all the commas found between the quotes

my expected output:
Dave,30,6000,4500,60000,1000