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