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