say "Single str='$MyEmptyTrueVar::singleton', Num=", (0+$MyEmptyTrueVar::singleton)
   if $MyEmptyTrueVar::singleton &&
   $MyEmptyTrueVar::singleton ne '' &&
   '' ne $MyEmptyTrueVar::singleton;