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

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

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

Replies are listed 'Best First'.
Re: Short punctuation japh
by mtve (Deacon) on Jun 21, 2012 at 10:19 UTC
    most of all i like ${{},$} part, it took me a while to figure out that it's not a kind of hash slice :)