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