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