Re^2: timtowtdi but which is the [quote fingers]best[/quote fingers]

Select or download this

my $match = "\Q" . join ("\E|\Q", keys %translate) . "\E";

Select or download this

>perl -wMstrict -le
"my %translate = (
...
Unrecognized escape \Q passed through in regex...
Unrecognized escape \E passed through in regex...
(?-xism:\Qtr??u++e\E|\Qfa+l?se\E)

Select or download this

>perl -wMstrict -le
"my %xlate = (
...
'x1x11x111x1111x'
'xAxaaxAaAxaAaAx'
'x1x2x3x4x'

Select or download this

>perl -wMstrict -le
"my %xlate = (
...
"
'vv TTT ww TT String A xx sTrInG b xtruex True yy FALSE zz'
'vv 33 ww 22 3 xx 2 xtruex 1 yy 0 zz'

Select Code to Download