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