Picks from a subset (well, just numbers...) of \w, but does wonders for your golf score:

perl -wE 'say substr rand,2,8'
perl -wE 'say int rand 10**8'   # Won't show leading 0's.
[download]