use Text::CSV_XS ();


$input = '7374,726327,"76,237",32324,"21,342,857",23';
print("input:  $input\n");


$csv = Text::CSV_XS->new()
$csv->parse($input);
my @fields = $csv->fields();
s/,//g foreach @fields;

print("output: ");
$csv->print(\*STDOUT, @fields);