@_=map@_?eval"chr$_$_(\$_=ord shift\@_)":$_,/./gfor<>;print@_