Perhaps you could use unpack.

$ perl -le '
> $str = q{x} x 97;
> print for unpack q{(A10)*}, $str;'
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxx
$
[download]

I hope this is helpful.

Cheers,

JohnGG