Select Code to Download

my @fields = map {s/\?'/'/g; $_} split /\+|(?<!\?)'/, $line;

my @fields = split /\+|(?<!\?)'/, $line;
s/\?'/'/g for @fields;