my $re = join '', map { "(?=.*?$_)" } map { quotemeta } @a;