>perl -wMstrict -le
"my %translate = (
   'tr??u++e' => 1,
   'fa+l?se'  => 0,
   );
 ;;
 my $match = qq{\Q} . join(qq{\E|\Q}, keys %translate) . qq{\E};
 print qq{'$match'};
 $match = qr{$match};
 print $match;
 ;;
 my $mooch = '\Q' . join('\E|\Q', keys %translate) . '\E';
 print qq{'$mooch'};
 $mooch = qr{$mooch};
 print $mooch;
"
'tr??u++e|fa+l?se'
(?-xism:tr??u++e|fa+l?se)
'\Qtr??u++e\E|\Qfa+l?se\E'
Unrecognized escape \Q passed through in regex...
Unrecognized escape \E passed through in regex...
Unrecognized escape \Q passed through in regex...
Unrecognized escape \E passed through in regex...
(?-xism:\Qtr??u++e\E|\Qfa+l?se\E)