Select Code to Download

$ perl -Mstrict -Mwarnings -le '
> my @arr = qw{abc d.ef gh?i};
...
> print $patt;'
xyz(abc|d\.ef|gh\?i)123
$