Select Code to Download

    my @data = map { chomp; [ split ',' ] } <DATA>;

    my @data = map { chomp; [ map { /"(.*)"/ ? $1 : $_ } split ',' ] }
+ <DATA>;