$0=gensub(/(.)./,"\\1","g")