#! perl
use strict;
use warnings;

$_ = 'the users contain (bbc (333)) BLAH BLAH (ddc (223)) BLAH BLAH(ccc (123))';

print "Name: $1, ID: $2\n" while / \( ([^(\s]+) \s* \( ([^)]+) \)\) /gx;