#!perl -p
y/A-Z//cd;s/./${\ord$&} /g