Constant PERL_SCAN_ALLOW_UNDERSCORES 

pub const PERL_SCAN_ALLOW_UNDERSCORES: u32 = 1;