$value =~ s/\r\n/\r/g;
$value =~ s/\n/\r/g;
$value =~ s/\r$//;
$value =~ s/\,/\0/g;

何度見てもくずはのこの辺りのｴｽｹｰﾌﾟは変態過ぎる(;´Д`)
特に最後の行が頭おかしい