($str = reverse $str) =~ s/^[^X]+//;
$str = reverse $str;