-nle@_[unpack'C*',$_]=/./g;@_=!print@_

##</code><code>##

-nle@_[ord]=$_,for/(.)/g;@_=!print@_

##</code><code>##

-nE@_[ord]=$_,for/(.)/g;@_=!say@_

##</code><code>##

# 34 strokes on Windows, and also Unix if your shell doesn't treat "!" special
-nE@_[map+ord,/./g]=/./g;@_=!say@_