#!perl -p
s#.#$&x~$`!~~$&#ge