$array = join /$splitter/, @array; # where $splitter is a scalar that will not be in an element
$array =~ s/$splitter{2,}/$splitter/g;
@array = join $splitter, $array;