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

Not much obfuscation really. The idea was to try and see if it was possible with some unusual code to predecrement a constant or at least to pretend to do so.

*0=sub: lvalue {my$l}, print --0 ->(!0)