perl -e "BEGIN{$w=pop @ARGV}print +(0,<ARGV>)[eval $w]" linenumber.txt 1,3..5



##</code><code>##

      perl -e "print +(0,<ARGV>)[eval pop]" linenumber.txt 1,3..5