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