my @array = $string =~ m/(.{1,5})/g;