$Regex_Pattern = qr/^(?(?{ check() }) ^ | (*FAIL) )/x;