Actually my $regex = qr(join '|', map "\Q$_\E", @vals) will optimize the pattern matching

Hrm, that's debatable, check out diotalevi's reply in meaning of /o in regexes.
HTH

_________
broquaint