Re^3: char substitution without regexes

[ikegami]

It passes a pattern, but it's actually special-cased not to use the regex engine.

Ok, so I did it without thinking.

print map $complement{$_}, reverse unpack '(a)*', $chain;

[jwkrahn]

Now you've got it!   :-)

By the way, which do you think would be more efficient, reversing the list, or reversing the string first?

[ikegami]

Reversing an array of SV* or reversing an array of char (assuming UTF8=0)? We're talking about the same CPU ops.