$str =~ /.*X/g and $str =~ s/\G.*//;