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