sub foo { $_[0]^'R%?$'|'J!0(' } print foo("zdog") & foo("perl") [download]
Zenon Zabinski | zdog | zdog7@hotmail.com
In reply to Mixed Messages by zdog