perl -wle 'my $number; print 1 if 0 + ( $number // 0 )'