$ perl -e '$_ = "(b)."; /\((?=a|b|c)\)/ && do { print "match!\n"; };'
$ perl -e '$_ = "(b)."; /\((?=a|b|c)/ && do { print "match!\n"; };'
match!