perl5.10.0 -E'BEGIN{ sub X () { say "wantarray: ", defined wantarray ? (wantarray eq "" ? "empty" : wantarray) : "undef"; qw(a b c) } } say "ok" if "a" ~~ X'