$ml = 3;
@a = "abcdefg" =~ /.{1,$ml}/g;
say "@a";
__END__
abc def g