ref: 11e0cd792213373300d37a6a7ad3157f28416299 dir: /test/t.gsub3/
length($1) {gsub(substr($1,1,1),"(&)"); print}