やっつけCSV

while (<$fh>) {
    chomp;
    my @data = split /,/;
    s/^"|"$//g foreach @data;
    # ほげる
}

やっつけ仕事すぎるなぁ。改行も入らないし、ダブルクォートのエスケープもなにも考えてないや。今回処理したデータはこういうの一切考えなくてよかったからこんなのでも通るけど、一般的にはText::CSV_XSを使うのがスマートな解法。