只针对目前的资料的话
可以用 split 分开资料字段
用 s/\s+//g 取代掉空白字符
可以检查 substr($data, -1, 1) 是不是 "]" 就知道有没有括号,
同理可以用 substr($data, -2, 1) 取得数字的资料
用一个 for 循环跑 split 产生的资料, 确定没有括号的先印出来
有括号的先 push 在 buffer 里, 一直到确定括号资料没有连续了取出印出
※ 引述《pat12345 (咖啡杯)》之铭言：
: 大家好，我是perl初学者，
: 我想把以下的文字做换列的转换，
: 难的地方是带括号的，
: 想请大家给我一些建议，
: 感激不尽~~
: input:
: A, B, C[1], C[0], D, P[3], P[2], P[1],
: output:
: A;
: B;
: [1:0] C;
: D;
: [3:1] P;