( ( $INPUT_LINE_NUMBER or ONE ) .. 
      ( $INPUT_LINE_NUMBER and ZERO ) ) 

##</code><code>##

perl -le "print( ($.||1..undef)-1 )for 1..4"

##</code><code>##

.