my @a= ( $str  =~  /.{1,$ml}/g ) ;
$a=scalar @a;
print $a;