<>=~s#.#print$&,$/x!($%=($%*3+$&)%7)#ger