# original example, 58 chars

perl -e 'print join(" ", map { sprintf("%03u", $_) } (2..20)), "\n"'