http://www.perlmonks.org?node_id=478659


in reply to Logical expression evaluation

one way is: 
my $v=1;
my $f=int( !($v) );
print "**$f**\n";

[download]

-enlil

In Section Seekers of Perl Wisdom