while (<$fh>) { chomp; my @data = split /,/; s/^"|"$//g foreach @data; # ほげる } やっつけ仕事すぎるなぁ。改行も入らないし、ダブルクォートのエスケープもなにも考えてないや。今回処理したデータはこういうの一切考えなくてよかったからこんなので…