#!perl -p
s#.#$&x$`!~/[$&-z]/#ge