$,=$/,print join('.',map chr(ord(substr$^X,$_,1)- $_[$_]),0..$#_).q,.,,''if'one4k4'+split//,q,6424,