my $regex = "(";
foreach (@array2) {
  $regex .= $_ . "|";
}
$regex .= ")";

##</code><code>##

my $regex = join '|', @array2;

##</code><code>##

my $regex = join '|', map quotemeta, @array2;