Select Code to Download

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

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

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