perl -e '$_ = "(b)."; /\([abc]\)/ && do { print "match!\n"; };'