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