An example where mine falls over, but I think tachyon's wouldn't.

$t = "xyxxy|xx|xy|xx|yy|yxxy xx x"
$t =~ s[(?<!x)(x)(x)(?!x)][$1 $2]g;

print $t
xyx xy|x x|xy|x x|yy|yx xy x x x
[download]