in reply to deleting commas enclosed by quotation marks
s/("[^"]*")/ my $s= $1; $s =~ s-,--g; $s /ge; [download]
- tye