in reply to TIMTOWTDI/golf - counting backwards

Not as clever as jmcnamara or belg4mit or as short as chipmunk. Oh well.
perl -le'$^=~s#.#$_=$'\'';print s/.|$//g#ge'

or 5.6:
perl -le'$^=~s/.$/!print@+/e while$^'

update: but this works with 5.005:
perl -le'$_=$^;s||s/.$/!print length/e|ge'

  p