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