#!perl -paF
s/ ?./"(@F[@-,6,8+pos])%10"/gee