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