Select Code to Download

sub test_wantarray{
   wantarray ? Y : N;
...

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

HelloNWorld
HelloYWorld

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

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

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

if (undef eq "")
{
...
{
 print "undef evaluates to zero in numeric context\n";
}

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