$text =~ s<(.*?)|+>{ $1 || ' + ' }ge;