>perl -E"sub f { say( ( (wantarray && 'list' ) // 'void' ) || 'scalar' ); } +f(); $_=+f(); ()=+f();"
void
scalar
list