my $s = Set::Scalar->new('a','b','c(d)');

if($s->has(/c\((.+)\)/)) {
  print $1;           # prints 'd'
}