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