[问题求助] Perl怎样根据段落合并行？

Perl

文件内容如下：
[Nokia]
a
b
c
d
[Simens]
1
2
3
[Ericsson]
h
i
j
k
l

需要合并之后得到：
[Nokia]
a,b,c,d
[Simens]
1,2,3
[Ericsson]
h,i,j,k,l