perl匹配一行中多个字符串
比如一行数据
(21,0,0)(110,33,0)(117,1,2)
规律就是一对()内有3个数字，我只要第一个数字，每行输出一个

echo "(21,0,0)(110,33,0)(117,1,2)" | perl -ne 'print "$1\n" if /\((\d+)/'
结果是21

我希望是
21
110
117

请教各位大牛 perl 正则
[解决办法]
是要加 /g 吗？
[解决办法]

echo "(21,0,0)(110,33,0)(117,1,2)" 
[解决办法]
 perl -ne '@d = /\((\d+)/g; print join("\n", @d)'