>perl -E"say ${ $::{'^X'} }"


>perl -E"say ${ $::{qq{\cX}} }"
...\perl.exe