..or for a quick match, substr, and tr///d:

    $string =~ /^Y?X?/;
    substr($string, $+[0]) =~ tr/X//d;
[download]