substr( $_, /^Y/ ? 2 : 1) =~ tr/X//d;