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

yeah, i know you all must be getting tired of plain old japhs, but i was kinda bored here and ended up doing this:
use strict;;;foreach(ord( pack(chr(++$*+$*+++$**$*. $*),$=))+--$* .. ord(pack (chr($*+$*+++$**$*.$*),$= ))+--$*+$*++-(($*-$***$*) )+$*+++$***$*-$*---$**$*, $***$***$**$*){push@_,$_} ;foreach($***$**$*+$*/$*, $***$**$**$*+$**$*,$***$* *$**$*+$*,$***$**$**$*+$* *$*-$*/$*,$**$**$**$**$*- $**$**$*+$*,$*-$*,$**$*** $**$*-$*-$*/$*,$**$***$** $*-$*,$***$***$*+$**$*-$* /$*,$**$**$*-$*/$*,$**$*, $***$***$*+$*/$*,$**$**$* *$**$*-$**$**$*+$*,$***$* **$*-$*/$*,$**$*,$***$*** $*+$*/$*,$***$**$*+$*+$*/ $*,$***$**$**$**$*-$**$** $*+$*,$***$**$*-$*/$*,$*- $*,$*,$***$**$*+$*,$**$*, $***$**$**$*+$*/$*){print pack(chr$**$**$**$**$**$* +$**$*+$*/$*-$*,$_[$_]);}