#!perl -lp
s'#'$-[0]&2?".":$&'ge