% perl -wle 'my @x = do { wantarray ? q(yes) : q(no) }; print $x[0]'
no