>304
仕様をもうちょい詳しく書かないと適当なコードしか書けんよ?
aaa,,y で , が 2 つ入ってるの何?とか、Hoge が HOGE になってるの何?とか。

>perl -ne 'chomp; $i = 0; push @a, grep { $i++ % 2 } split /,/;'