$d =~ tr/+//d;
next if $d; #
@a0 = split / /, $a;
splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
@a = ();
foreach (@a0) {
$d =~ tr/+//d;
next if $d; #
@a0 = split / /, $a;
splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
@a = ();
foreach (@a0) {