push @array, $1 while $str =~ m/(.{1,8})/g;