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

##</code><code>##

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