perl -wle 'my $number; print 1 if 0 + ( $number // 0 )' [download]
In reply to Re: Meaning of // by rsFalse in thread Meaning of // by hanspr