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

##</code><code>##

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