Try this :

my $b;
my $a=q(name+C.+city+loc.+loc2++++++++++++++++++++++++++++++++
+++++B+++v+G+++);

for(split /\+/ ,$a){
  last if not  $_;
  $b .='+' if $b;
  $b .= $_;
  #print qq([$_]\n)
};

print $b;

#--END--#
##Output:###
name+C.+city+loc.+loc2
[download]