From: Todd on

> split() the strings into individual characters, then see "perldoc -q
> intersection".
>

I know it will work, but it'll be very very slow, it seems that we
need to wrap a c code using XSUB.

-Todd