$s='abcdefg';
$ml=3;
@result=('abc','def','g');

##</code><code>##

@sc=split(//,$s);

##</code><code>##

push @result,join('',@sc[$i*$ml .. $i*($ml+1)-1]);