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