そんなこと自前でやらずにText::CSVでも使えばいいと思うよ。