$ perl -e '$_ = "xoxo";$_=ucfirst(reverse(ucfirst(reverse($_))));print'