#! 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;

##</code><code>##

16:17 >perl 1194_SoPW.pl
Name: bbc, ID: 333
Name: ddc, ID: 223
Name: ccc, ID: 123

16:17 >