Select Code to Download

my @chunks = map qr{(?=.*$_)}, (
   qr{\d},
...
}
my $regex = = join '|', @transformed;
$regex = qr{^.*(?=.{10,})(?:$regex)};

my $count = 0;
for (@chunks) {
   $count++ if $str =~ $_;
}