$0=gensub(/(.)[^ ]*./,"\\1","g")