Select Code to Download

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