Select Code to Download

     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){
                                        }