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

      # this is actually doing the regex edge cases too Tachyon