$content =~ m/A\((.*)\)/;
my @values=split /,/,$1;
s/(["'])(.*)\1/$2/ for @values;