C:\WINDOWS\system32>Perl -MData::Dump=pp -e "pp do{3 if ()} "
undef

C:\WINDOWS\system32>Perl -MData::Dump=pp -e "pp do{()} "
()