A lot of people don't seem to understand the poll... or I'm not getting their jokes, which is also possible.
Anyway, there is sometimes a wish for something that is considered zero when used in numeric context, but true when used in boolean context, that is something that will make the following print "42\n":
#!/usr/bin/perl
use warnings;
use strict;
my $x='<some choice on the poll>';
print $x+42, "\n" if ($x);
Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).