Select Code to Download

if (3 <= scalar grep { $str =~ /$_/ } ( # Match at least 3 of:
    qr/^.*(?=.{10,})(?=.*\d).*$/,
...
) {
    # Do something.
}