$str =~ s/(.*X).*/$1/;