##
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 (0 || @a);
print "\n";
print "Y:";
print (@a || 0);
print "\n";
##
##
X:123
Y:3