die "Regex containing code disallowed" if $userRe =~ m[\(\?\??\{];