-p
($d,$s,$=)=split/[d+]/;map$=+=1+rand$s,1..$d;$_=$=.$/
         1         2         3         4         5
12345678901234567890123456789012345678901234567890123