Terribly sorry, I didn't test it.

Yes, the double use of "/" to delimit regular expressions is tripping up the parser. Much better to use braces;

@terms=qw(foo bar b.*az);
my $re = qr{(?:${\(
                 join "|", map { qr{\Q$_\E} } @terms
              )})};
print "$re\n";
[download]

The above will print "(?-xism:(?:(?-xism:foo)|(?-xism:bar)|(?-xism:b\.\*az)))"

$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";
[download]