如何使用perl在一行中多次出现的方括号之间提取数据?

neb*_*lus 2 regex perl data-processing

我有一行包含方形括号数据的多个实例.

[data 1] junk [data 2] junk,junk [data 3] junk [data 4]
Run Code Online (Sandbox Code Playgroud)

有没有人有goo正则表达式?所以我可以使用

print $1,$2,$3,$4;
Run Code Online (Sandbox Code Playgroud)

谢谢!

DVK*_*DVK 7

使用Text :: Balanced而不是正则表达式.