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