#!perl -p $n+=s/@{[M,a,r,i,k,o]}[$n]/\u$&/i