Or, translated into lookbehind notation (and moving the + for more efficiency):

$string =~ s/(?<=[^Y])X+//g;
[download]

As long as there's a non-Y character preceding, remove any string of Xs.