% perl5.9.5 -wle  'print +("_" =~ m{(??{"_" =~ /./})}) ? 1 : 0'
0

% perl5.9.5 -wle 'print +("_" =~ m{(??{"_" !~ /./})}) ? 1 : 0'
1