$input =~ /(.{1,10})/g

##</code><code>##

unpack("(A10)*", $input)