my @substrings = $string =~ /.{1,10}/gs;