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