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