Исправление beastie, 10.04.17 01:37 (текущая версия) :
awk '{for (i = 1; i <= NF; i++) printf("%s%s", substr($i, 1, 1), i < NF ? FS : "\n")}'
Исходная версия beastie, 10.04.17 01:35:
awk '{for (i = 1; i <= NF; i++) printf("%s%s", substr($i, 1, 1), i<NF?FS:"")}'