Help for this page

Select Code to Download

Select or download this

my @values = qw/ a ab. d ef def g|h /;
my $regex_str = join '|',             # 4.
...
    @values;                          # 1.
my $regex = qr/$regex_str/;           # 5.
print "$regex\n";                     # 6.

Select or download this
```
(?^:ab\.|def|g\|h|ef|a|d)
```