print "C:";
for (qq{ab cd}) {
    print /(\S+)/g or die; # prints "C:abcd", list context again
}
print "\n";

##</code><code>##

print "C:";
for (qq{ab cd}) {
    print(/(\S+)/g) or die;
}
print "\n";

##</code><code>##

print "D:";
for (qq{ab cd}) {
    print /(\S+)/g || die;
}
print "\n";

##</code><code>##

my @a = (1,2,3);
print "X:";
print (0 || @a);
print "\n";
print "Y:";
print (@a || 0);
print "\n";

##</code><code>##

X:123
Y:3