perl -le 'for (1,2,3) { print $_; }'