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