$S=$_;@s=(map($S=~/^.{$_}/sg,1..$s),/(?=.(.{1,$s}))/sg); [download]
In reply to Re: Re: (Golf) Character windows by petral in thread (Golf) Character windows by japhy