perl -wle "print for eval shift" 1,5,7..10,15,17..19,22