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