Help for this page
my $a = "x|xx|xx|xxxx|xx|xxx|xx|xx|x"; ... This gives the output [x|x x|xx|xxxx|x x|xxx|x x|xx|x]
while($_ =~ s/x\|xx\|x/x\|x x\|x/g){ }