@chunks = $str =~ /[^,"]*(?:"[^"]*"[^,"]*)*/g;