my @groups = ();
my $pred = -1;
my $j = 0;
while ($string =~ m/$regex/g){
    	$pred == $-[0] or $j++;
    	$groups[$j] += $+[0] - $-[0];
    	$pred = $+[0];
    	}