sub test_wantarray{
   wantarray ? Y : N;
}

print "Hello" . &test_wa . "World\n";
print "Hello", &test_wa, "World\n";

##</code><code>##

HelloNWorld
HelloYWorld

##</code><code>##

print "Hello", (wantarray ? Y : N), "World\n";

##</code><code>##

sub test_wantarray{
wantarray ? @array: \@array;
}

##</code><code>##

      print "Hello", &test_wa, "World\n";

##</code><code>##

if (undef eq "")
{
 print "undef evaluates to empty string in string context\n";
}
if (undef == 0)
{
 print "undef evaluates to zero in numeric context\n";
}

##</code><code>##

$count = () = $s =~ /abc/g;