#!perl -p
mariko=~/.{0$i}\K./;$i+=s/$&/\u$&/