my $string = "name+C.+city+loc.+loc2+++++++++++++++++++++++++B+++v+G+++";
$string =~ s/\+(?!\+)|\+{3,}.*$/ /g;
print $string, "\n";

##</code><code>##

my @fields = split /\+/, $string, 6;

##</code><code>##

my $parsed = join " ",(split /\+/, $string, 6)[0..4];