http://www.perlmonks.org?node_id=496371


in reply to /^[^A-Za-z0-9 ]*$/

Very nice obfuscation. I definitely couldn't read anything from it when I looked at the source.

Here's a way to make it resistant against Deparse. (It still doesn't print the canonical comma, I'm lazy to do that.)

$;="+[^,}",$/=($;^'[>,@]')."-".(('^|*!]@~/*%*..*]]./[@;.^,^\,{@\?@;,"} +@`|')[$;]^';^]@/.^^[~`[]^}<@@/(^\~|;.@[(=\+^^~!.=^'),`$/`

Update: see also Re: my JaPh,.