Select Code to Download

my $joined = "(??{ \$pats[" . join( "] })|(??{ \$pats[", 0 .. $#pats )
+ . "] })";

my $joined = join '|', map "(??{ \$pats[$_] })", 0 .. $#pats;