Select Code to Download

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

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

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

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

X:123
Y:3