It isn't very hard to read, but the idea is interesting ... at least I think so ...

sub foo { $_[0]^'R%?$'|'J!0(' }
print foo("zdog") & foo("perl")
[download]

Zenon Zabinski | zdog | zdog7@hotmail.com