$regex = qr/(?x)  # (comment)
            (?-x) # (capture) (?x) # (comment)/;