#!perl -p $s=(M,A,R,I,K,O)[$i];$i+=s/$s/$s/i