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


in reply to Fun with one keyword

ok, no /w chars or $ signs at all.

''!~('(??{'.('>%<).;[&))`+))@/|*(()}!./)(%)^+%)@[(!#+;[!|&&'^'|`{``@>^@]@[[@.[^`][]]@@@]@@[~{@[,{@@@@^)+^[[)'))