$str =~ s/X[^X]*$/X/;