perl -pe's/.(?=.?#)/$&^v3/ge;s/^/##/'