@chunks = $str =~ /((?:[^ ]* ){10}[^ ]*|.+)/gs;