perl,匹配，取值问题

perl,匹配，取值问题
基于像这种形式的：2(1,0,1)，3(1,1,1)..........,括号里面的3个数之和正好等于括号外面的那个数；像这种情况，如何用正则表达式或是别的方法，定义4个变量（$total,$ma,$sa,$map)来提取这4个值.

my $string = "2(1,0,1)";.
my $string = "2(1,0,1)";
$string =~ m/^(\d+)\((\d+),(\d+),(\d+)\)$/;
$1 = $2+$3+$4;