echo '01234567890123456789' | perl -pe '$s=time+join "",{}=~/(\d+)/g;s/(.)/srand $s;rand for 0..$1;chr(ord("a")+rand 26)/ge'