Sure thank you, then looks like
{$x ne$y&&$x=~/./sg&$y=~/\G\Q$&/g&&redo;$n=$-[0]}
is the shortest solution so far (49).
Just for the record, using the trick in the last post by Terje we get 48:
{$x ne$y&&$x=~/./sg&$y=~/\G\Q$&/g&&redo;($n)[EMAIL PROTECTED]
I'd bet that's way long nevertheless.
-- fxn
