#!perl -p
s/#/2&pos()?".":$&/eg