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

160 characters, clean under strict and warnings, works on win and *nix

*==~/(.).(.)/;($:,$:,$:,$;,$;,$,,$,,
$,,$@,$@,$^,$~,$.,$\,$/,$_,$.,$.,${{},$_[$|],$})=$+..-
$+;`$;$:$,$/$"$@$}${{}@_$"$+$\$/@_$,$;$.$"$_$;$.$~$"$,$+$:$^$;$.>&$#+`

[download]

Back to Obfuscated Code