DB<1> ($x='abc')=~s/(\w)/.\1/g ; print $x
.a.b.c