#!perl -p
s?\w+?$&=~y///c._.$&?ge