只針對目前的資料的話
可以用 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;