$string =~ s/("[^"]*")/local $_=$1; s!,!#!g; $_ /ge;