56 chars satisfy all the reqs (I think):

$S=$_;@s=(map($S=~/^.{$_}/sg,1..$s),/(?=.(.{1,$s}))/sg);
[download]

  p