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