in reply to TMTOWTDI Puzzle: Generating a range of numbers

Nobody's done this: 
  perl -e 'print "@{[ map{ ($/.=$_)=~s/././g } $^=~/./g ]}\n"'

[download]
($^ is "STDOUT_TOP")

  p

In Section Meditations