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