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

print $s->has('a'); # returns true

##</code><code>##

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

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