Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
$_ = 'the users contain (bbc (333)) BLAH BLAH (ddc (223)) BLAH BLAH(cc
+c (123))';

print "Name: $1, ID: $2\n" while / \( ([^(\s]+) \s* \( ([^)]+) \)\) /g
+x;
  2. or download this
    16:17 >perl 1194_SoPW.pl
Name: bbc, ID: 333
...
Name: ccc, ID: 123

16:17 >