$a = ("abcdefg" =~ /.{1,$ml}/g);