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