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