Perl: Replace all , found between two characters in perl

Question

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