lllsoslll

while(<DATA>){
	if(/^[\[]/){
		print "\n",$_;
	}else{
		chomp;
		print;
	}
}
print $a;

__DATA__
[Nokia]
a
b
c
d
[Simens]
1
2
3
[Ericsson]
h
i
j
k
l
复制代码