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