my $a = "x|xx|xx|xxxx|xx|xxx|xx|xx|x";
1 while ($a =~ s/\|xx\|/|x x|/);
print "[$a]\n";
__DATA__
[x|x x|x x|xxxx|x x|xxx|x x|x x|x]