my $a = "x|xx|xx|xxxx|xx|xxx|xx|xx|x";
     $a =~ s/(?<=\|)xx(?=\|)/x x/g;
     print "[$a]\n";