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