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

##</code><code>##

  $string =~ s/([^YX])X+/$1/g;