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