Hi

Shorter and working the same.
You do not require to add "(" and ")" to your regex.

my @array = ("foo {abc123}\n", "bar {def456}\n", "baz {ghi789}\n");
my @array2 = ("foo", "bar", "quux");
foreach my $i (@array) {
chomp $i;

$regex .= join "|", @array2;
if ($i =~ m/$regex/) {

     print "$i is in array2\n";
     next;

  } 

  # Do something with $i now.

}
[download]

Happy Programming...