$ perl -E '
> $rowTxt = ( q{0123456789} x 2 ) . q{0123};
> @groups = $rowTxt =~ m{.{1,10}}g;
> say for @groups;'
0123456789
0123456789
0123
$