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